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ABSTRACT 

A  software  package  was  developed  for  use  as  a  design 
tool  in  the  conceptual  design  of  submarines  on  the 
Computervision  CGP— 200X  Designer  System,  a  turnkey 
computer  aided  design  hardware  and  graphics  software 
system-  The  philosophy  behind  the  software  package  is  to 
keep  all  major  design  decisions  under  control  of  the 
design  engineer  rather  than  embedding  them  within  prog- 
ram algorithms- 
Modules  are  provided  for  generating  three  dimensional 
models  of  the  outer  envelope  and  sail,  and  for  the 
interactive  design  of  the  pressure  hull.  This  package  is 
designed  to  interface  with  modules  developed  separately 
by  Patrick  Hale  which  calculate  weight  estimates, 
principal  characteristics,  envelope  geometry,  resist- 
ance, balance,  and  the  equilibrium  polygon.  Interactive 
graphics  are  used  extensively- 

The  software  requires  a  knowledgeable  naval  architect  as 
the  user,  but  does  not  require  an  extensive  knowledge  of 
computers  or  computer  aided  design  systems. 
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I.  INTRODUCTION 

Computer  aided  design  has  become  an  important  tool 
in  many  industries  over  the  last  ten  years.  The  capabil- 
ities o-f  CAD  systems,  like  those  o-f  other  computer  sys- 
tems, are  growing  at  a  phenomenal  rate.  CAD  is  now  beco- 
ming the  standard  mode  o-f  design  -for  major  architecture 
-firms  and  the  automotive  and  aerospace  industries. 

Computer  aided  design  has  been  accepted  more  slowly 
in  the  area  o-f  naval  ship  design.  The  comparatively  low 
production  rates  of  naval  vessels  makes  the  cost  ef-fect- 
iveness  o-f  CAD  a  greater  question  for  ship  design  agen- 
cies. The  scale  and  complexity  of  naval  combatants  makes 
the  design  of  a  flexible  and  comprehensive  software 
package  a  formidable  task. 

A  number  of  software  packages  have  been  implemented 
for  conceptual  and  preliminary  design  of  surface  combat- 
ants in  both  government  and  private  sector  design  organ- 
izations. The  majority  of  these  tend  to  be  batch 
oriented  ship  synthesis  programs  with  little  or  no  real 
time  interactive  design  capability. 

This  lack  of  interactive  graphics  capability  is  due 
to  a  number  of  factors.  The  concern  for  standardization 
and  the  lengthy  process  of  government  certification   and 


procurement  create  a  substantial  delay  between  the  ini- 
tial availability  and  subsequent  installation  o-f  new 
hardware.  Computer  aided  design,  despite  its  acceptance 
in  some  major  industries,  is  nevertheless  unproven  in 
the  world  o-f  naval  architecture-  Many  design  procedures 
used  in  naval  architecture  are  somewhat  subjective  and 
di-f-ficult  to  quanti-fy. 

A  -further  impediment  to  the  use  o-f  CAD  in  naval 
architecture  has  been  the  tendency  o-f  many  early  so-ft- 
ware  packages  to  embed  many  key  decisions  in  program 
algorithms,  thus  taking  the  designer  out  o-f  the  decision 
loop.  Such  software  does  not  allow  the  designer  to 
utilize  his  knowledge  and  expertise  and  -frequently  pre- 
cludes trading  o-f-f  design  parameters  to  achieve  optimal 
designs. 

In  the  area  o-f  submarine  design  the  above  problems 
are  more  acute.  The  number  o-f  new  submarine  designs  is 
even  less  than  the  number  o-f  surface  combatants.  Accu- 
racy is  o-f  more  importance  in  submarine  design.  Where 
-feet  and  tons  may  be  acceptable  limits  of  tolerance  in  a 
large  surface  combatant  inches  and  pounds  frequently 
determine  the  limits  of  accuracy  in  submarine  design. 
This  is  due  to  the  requirement  to  achieve  a  hydrostatic 
balance  in  both  the  submerged  and  surfaced  conditions, 
as   well  as  the  premium  attached  to  internal  volume   and 


deck  area. 

Submarine  designers  are  ^ewer  in  number  than  their 
surface  counterparts,  and  o-ften  have  many  design  rela- 
tionships tied  to  subjective  criteria  developed  over 
years  o-f  experience.  So-ftware  which  does  not  allow  the 
designer  to  make  use  o-f  this  subjective  design  -flex- 
ibility is  not  likely  to  be  accepted  by  the  design 
community. 

The  software  developed  in  this  thesis,  titled 
CADSUB  (Computer  Aided  Design  of  Submarines) ,  accomp- 
lishes a  first  pass  through  the  submarine  design  process 
at  the  conceptual  level  of  design.  In  conjunction  with 
the  Ocean  Engineer  thesis  written  by  Pat  Hale,  the 
complete  package  includes  modules  for  the  calculation  of 
weight  estimates,  envelope  and  pressure  hull  geometry, 
speed  and  power,  basic  hydrostatics,  weight  and  moment 
balance,  and  the  determination  of  the  equilibrium 
polygon. 

A  primary  design  philosophy  for  the  software  was  to 
develop  it  for  use  by  a  competent  naval  architect  who  is 
not  necessarily  an  expert  in  the  use  of  computers. 
Critical  design  decisions  are  left  to  the  user  rather 
than  being  embedded  in  program  code.  Opportunities  are 
provided  to  override  program  algorithms  where  necessary 
to  implement  the  desires  of  the  individual  designer.  All 


communications  between  the  user  and  the  program  utilize 
standard  naval  architecture  terminology,  making  it 
unnecessary  -for  the  user  to  learn  speci-fic  computer 
terminology.  In  addition,  i^  the  designer  is  -familiar 
with  the  operation  o-f  the  CAD  system  he  may  easily  exit 
the  program  at  appropriate  points  and  tailor  the  design 
to  provide  more  detail  or  alternate  geometry  and 
analytical  procedures-  Interactive  graphics  ars  used  to 
provide  a  clear  visualization  o-f  the  design  as  it 
develops. 
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II.  USES  OF  COMPUTER  AIDED  DESIGN 

The  communication  o-f  ideas  and  information  is  an 
essential  element  of  all  engineering  endeavors.  Histor — 
ically  the  primary  medium  used  -for  communication  and 
storage  o-f  information  has  been  paper.  Paper  has  the 
advantage  of  allowing  both  long  term  storage  and  the 
distribution  of  information  to  a  large  number  of  users 
at  a  moderate  cost.  However,  information,  once  committed 
to  paper,  is  sometimes  difficult  to  modify. 

The  advent  of  modern  computer  aided  design 
technology  offers  the  opportunity  to  improve  the  design 
process  by  removing  some  of  the  limitations  imposed  by 
paper.  Using  a  CAD  system,  a  designer  may  develop, 
analyze,  and  refine  ideas  and  solutions  to  engineering 
problems  in  a  fraction  of  the  time  required  using  paper 
and  hand  calculations.  Once  a  design  exists  in  the  form 
of  a  three  dimensional  model  in  a  computer  data  base,  it 
may  be  recalled,  displayed,  and  modified  in  a  manner 
analogous  to  the  way  in  which  documents  may  be  edited  by 
a  word  processor.  During  the  evolution  of  a  design  over 
a  period  of  several  years  with  input  from  numerous 
designers,  the  use  of  a  CAD  system  can  facilitate 
storage   of  all  information  pertaining  to  a  design  in   a 


central   location,   ensuring   adequate   access   to   this 
in-formation  -for  everyone  involved  in  the  design  process. 

The  term  computer  aided  design  has  been  in  exist- 
ence -For  approximately  thirty  years.  The  earliest 
applications  o-F  computer  aided  design  were  limited  to 
two  major  areas  —  electronic  dra-fting  with  computer 
controlled  plotting  pens  and  computer  programs  used  to 
process  numerical  data.  Modern  CAD  systems  integrate  a 
wide  variety  o-f  -functions  including  geometric  modeling, 
simulation,  engineering  analysis,  testing,  inter-facing 
directly  with  the  manu-f acturing  process,  and  automated 
dra-fting.  These  capabilities  allow  manu-f  act  urers  to 
build  solid  models  o-f  engines,  road  test  automobiles, 
and  examine  the  stability  o-f  o-f f shore  structures  on 
computer  screens  prior  to  construction  o-f  prototypes  or 
models. 

The  -foundation  o-f  computer  aided  design  techniques 
is  the  computer  representation  of  a  part's  size  and 
shape,  known  as  the  geometric  model.  The  simplest  repre- 
sentations o-f  models  are  wire  -frame  drawings  which 
depict  the  outline  o-f  the  shape  with  a  simple  mesh.  With 
improvements  in  CAD  technology  it  is  increasingly  more 
common  to  use  the  more  realistic  looking  solid  modeling 
technique  to  provide  visual  representation  because  it 
more  thoroughly  speci-fies  each  -facet  o-f  the  object  being 
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pro-filed. 

Solid  models  ^re  handled  by  CAO  systems  almost  as 
i-f  they  were  real  objects.  Models  may  be  inverted,  spun, 
or  cut.  They  may  be  used  to  calculate  physical  proper- 
ties such  as  weight  and  center  o-f  gravity.  Now,  in  a 
matter  o-f  a  -few  minutes  or  hours,  it  is  possible  -for  an 
engineer  to  ascertain  the  week  spots  in  a  structural 
design  or  the  behavior  o-f  a  dynamic  system. 

Computer  aided  design  has  become  -firmly  entrenched 
as  a  valuable  tool  in  both  the  automobile  and  aerospace 
industries.  As  a  result,  the  design  process  in  these 
industries  has  been  speeded  up  signi-f icantly-  Other 
industries,  such  as  shipbuilding,  are  now  beginning  to 
accept  computer  aided  design. 

GEOMETRIC  MODELING 

The  process  o-f  creating  a  computer  based 
representation  o-f  a  design  is  the  most  basic  application 
o-f  modern  computer  aided  design.  Using  the  graphics 
capabilities  inherent  in  a  CAD  system,  the  design 
engineer  creates  a  three  dimensional  model  o-f  a  new 
part.  This  model  may  then  be  rotated  or  cut  in  cross- 
section  to  expose  exterior  and  interior  details.  Other 
parts  which  exist  in  the  data  base  may  be  called  up  and 
added   to  the  part  being  designed.   In  this   manner   the 
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interaction  and  -fit  between  parts  and  systems  may  be 
checked  and  designs  modified  to  allow  -for  interference 
be-fore  the  manufacturing  process  begins. 

ANALYSIS  OF  DESIGNS 

In— service  behavior  o-f  a  model  may  be  predicted 
with  -finite  element  analysis.  Several  developments  in 
the  last  -few  years  have  made  the  use  o-f  finite  element 
analysis  more  useful  and  less  time  consuming.  Automated 
mesh  generation  is  among  the  most  important  of  these 
devel opments. 

At  one  time  data  for  finite  element  programs  were 
written  out  by  hand  and  then  keypunched  into  a  computer 
for  batch  processing.  This  resulted  in  large  quantities 
of  numerical  printouts  which  required  an  experienced 
analyst  to  evaluate.  With  the  advent  of  preprocessing 
techniques  the  operator  could  interactively  construct 
the  finite  element  mesh  directly  on  the  CRT  screen. 

The  latest  trend  in  finite  element  analysis  is 
automatic  mesh  generation.  Using  this  technique  the 
operator  divides  the  part  shape  into  coarse  four  sided 
areas.  Mesh  density  is  then  specified  and  nodes  are 
automatically  positioned  by  the  computer.  Some  modeling 
programs  exist  which  use  free  mesh  generating 
techniques,   making   it   possible  to  create   meshes   for 
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parts  with  irregular  curves,  internal  cutouts,  and 
intricate  details.  Automatic  mesh  generation  makes  it 
possible  to  conduct  analysis  o-f  parts  using  a  -finer  mesh 
than  possible  with  manually  generated  meshes.  Further- 
more, costs  are  considerably  less  when  automated  mesh 
generation  is  used  since  labor  costs  are  significantly 
reduced. 

Following  creation  of  the  mesh  and  analysis  by  a 
■finite  elements  program  postprocessing  routines  are  used 
to  interpret  the  results  and  reduce  the  need  to  analyze 
voluminous  numerical  data.  Contour  plots  may  be  used  to 
indicate  lines  o-f  constant  strain,  or  color  may  be  used 
to  di-f-f erentiate  between  di-f-ferent  levels  o-f  stress- 
De-Formed  shape  plots  may  be  generated  to  show  model 
d  i  sp 1 acemen t . 

Finite  element  techniques  are  routinely  applied  to 
stress  analysis  problems.  They  may  also  be  applied  to  a 
wide  range  of  other  problems  including  fluid  mechanics, 
heat  flow,  acoustics,  and  electromagnetics. 

SIMULATION 

An  application  of  computer  aided  design  which  is 
becoming  increasingly  more  popular  is  that  of  simula- 
tion. When  used  in  conjunction  with  geometric  modeling 
and  finite  element  analysis,   simulation  may  be  used   to 
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preview  the  dynamic  behavior  o-f  a  design  in  service- 
Simulation  programs  now  being  introduced  permit  the 
designer  to  pro-File  in  three  dimensions  the  behavior  o-f 
complex  equipment  or  machinery.  A  single  part  may  be 
studied  as  a  component  o-f  a  dynamic  system  in  order  to 
assess  the  loads  it  is  likely  to  encounter.  Finite 
element  analysis  may  then  be  employed  to  determine 
stress  distribution. 

Design  so-ftware  packages  generally  include  capa- 
bility -for  simulating  simple  -forms  o-f  mechanical 
behavior.  These  kinematic  programs  mimic  the  paths  of 
cams,  gears,  links,  and  other  mechanisms  which  undergo 
cyclic  or  repetitve  movement.  A  number  o-f  turnkey  sys- 
tems are  capable  of  animating  the  motion  of  simple 
pivoted  devices  such  as  hinges,  doors,  or  cranks- 
Programs  for  simulating  more  complex  mechanisms  are 
usually  obtained  as  unbundled  software. 

Systems  undergoing  large  displacements  may  be 
simulated  using  displacement  analysis  programs.  Those 
systems  which  have  been  analyzed  by  this  technique 
include  the  suspension  system  of  an  automobile  as  it 
makes  a  turn,  nuclear  reactor  handling  mechanisms,  the 
movement  of  control  linkages  and  robots,  high— speed 
mechanisms,  and  construction  equipment.  C13 
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BENEFITS  OF  COMPUTER  AIDED  DESIGN 

The  acquisition,  maintenance,  and  training  costs  o-f 
a  CAD  system  constitutes  a  signi-ficant  capital 
investment.  It  must,  there-fore,  provide  substantial 
bene-fits  to  justify  its  cost.  This  is  not  a  simple 
evaluation  to  make  since  there  is  not  likely  to  be  a 
reduction  in  design  costs  -following  installation  o-f  a 
CAD  system.  Savings  are  more  o-f  ten  realized  in  indirect 
ways  which  are  di-f-ficult  to  quanti-fy. 

The  principal  bene-fit  o-f  computer  aided  design  is 
likely  to  be  in  the  areas  o-f  cost  avoidance  and  risk 
reduction.  Computer  aided  design,  because  it  speeds  the 
design  process,  allows  more  time  to  explore  design 
alternatives.  Several  companies  which  have  made  sub- 
stantial use  o-f  CAD  systems  have  proven  that  the  time 
required  to  complete  individual  design  tasks  may  be 
reduced  signi-f  icantly.  For  example,  prior  to  the 
implementation  o-f  CAD,  engineers  at  Pontiac  took  up  to 
six  weeks  to  design  a  cylinder  head  combustion  chamber 
by  manually  calculating  complex  geometric  constructions. 
Using  CAD,  this  task  may  now  be  completed  in  three  days- 
Si  nee  the  time  to  complete  an  individual  design  is 
reduced,  the  time  available  -for  design  optimization  and 
study  o-f  alternatives  is  increased. 
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The  ability  to  model  several  parts  in  a  design  and 
study  their  interaction  with  one  another  and  with  other 
systems  makes  it  much  easier  to  design  around  inter-fer — 
ences.  This  reduces  the  amount  o^  rework  required  during 
production. 

By  reducing  the  time  required  -for  individual  design 
tasks,  providing  time  to  study  alternatives,  and  reduc- 
ing rework,  studies  show  that  cost  overruns  and  redesign 
costs  may  be  reduced  by  as  much  as  50%.  C23 

CHAPTER  SUMMARY 

This  chapter  has  brie-fly  outlined  the  major  capa- 
bilities and  applications  o-f  computer  aided  design.  The 
implementation  o-f  CAD  has  the  potential,  if  properly 
managed,  to  increase  both  the  productivity  and  e-f-Fect— 
iveness  o-f  the  design  process,  and  thus  improve  the 
productivity  and  quality  of  the  manu-f acturing  process. 

Computer  aided  design  must  not,  however,  be  viewed 
as  a  replacement  -for  a  quali-fied  designer.  The  CAD 
system  is  operated  by  a  human,  and  the  designs  generated 
on  the  CAD  system,  as  with  any  other  computer  system, 
are  only  as  good  as  the  data  on  which  they  are   based. 


16 


Ill-  DESCRIPTION  OF  THE  COMPUTERV I S I ON  CGP-200X  DESIGNER 
SYSTEM 

When  developing  computer  aided  design  so-Ftware, 
particularly  so-ftware  which  relies  heavily  on  graphics, 
access  to  a  CAD  system  is  extremely  helpful.  The  system 
used  during  the  course  o-f  this  thesis  was  the  Computer — 
vision  CGP-200X  Designer  System.  This  chapter  contains  a 
brie-f  description  o-f  the  Designer  System. 

The  CGP-200X  Designer  System  is  a  dedicated  CAD 
system  consisting  o-f  the  -following  major  components: 

-  CGP-200X  Graphics  Processor 

-  Storage  Module 

-  Instaview  Workstation 

-  CAD  Software 

-  System  Plotters 

The  CGP— 200X  Graphics  Processor  processes  data  and 
performs  calculations  related  to  the  overall  operation 
of  the  CAD  graphics  system.  It  consists  of  a  graphics 
processor  and  a  magnetic  tape  unit.  The  graphics  pro- 
cessor is  a  high— speed  data  manipulation  and  storage 
device  which  controls  all  Designer  System  operations. 
Associated  with  the  graphics  processor's  central 
processor   unit  are  two  memory  boards,   each  capable   of 
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storing  either  128K  or  512K,  16-bit  words.  The  magnetic 
tape  unit  stores  design  in-formation  entered  into  the 
system  on  magnetic  tape  so  that  it  may  be  transferred  to 
other  systems  or  maintained  as  a  backup  copy.  C3I] 

The  Storage  Module,  or  disk  unit,  stores  design 
in-formation  onto  a  multi—sur -faced  300  megabyte  disk 
pack.  The  operating  system  (OS)  resides  in  a  protected 
portion  o-f  the  primary  disk.  Multiple  disk  packs  may  be 
supported,  providing  additional  disk  storage  space  and 
the  possibility  o-f  increased  disk  and  -file  access  speed. 

Communication  between  the  design  engineer  and  the 
Graphics  Processor  is  achieved  with  the  Instaview  Work- 
station. Components  making  up  the  Instaview  Workstation 
include  the  -following: 

—  Graphics  display  screen 

—  Graphics  tablet,  electronic  pen,  and  menu 

—  Alphanumeric  keyboard 

—  Image  Control  Unit 

—  Workstation  printer 

The  graphics  display  screen  allows  the  user  to  view 
model  geometry  and  detail  drawings  as  they  are  being 
constructed.  In  addition,  the  screen  also  displays  the 
text  o-f  commands  used  to  construct  graphic  elements. 
This  text  occupies  an  area  o-f  either  -four  or  twenty— four 
lines  o-f  eighty  columns. 
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Within  the  graphics  area  o-f  the  display  screen 
entry  of  graphic  in-f ormation  is  managed  by  a  cursor.  It 
is  used  to  locate  positions  on  the  screen  to  be  digi- 
tized and  to  identi-fy  existing  graphics.  For  example,  i-F 
a  line  is  to  be  drawn  between  two  points,  the  cursor  is 
used  to  locate  -First  one  point  to  be  digitized  and  then 
the  other.  The  cursor  may  be  controlled  either  with  the 
electronic  pen  and  graphics  tablet  or  by  direct  entry  o-F 
data  points  with  the  alphanumeric  keyboard. 

The  graphics  display  screen  may  be  either  a  mono- 
chrome or  color  raster  scan  CRT.  The  monochrome  display 
is  a  nineteen  inch,  lOOO  line,  high-resolution,  green 
phosphor  CRT.  Color  graphics  aire  provided  on  the  Insta— 
view  C  terminal.  In  addition  to  the  same  raster  scan 
technology  used  by  the  monochrome  display,  up  to  sixty- 
four  color  combinations  (seven  basic  colors  and  twenty- 
four  shades  which  are  definable  by  layers  and  views)  may 
be  used  to  reduce  design  time  and  increase  accuracy  by 
providing  heightened  graphics  discrimination.  C43 

Entry  of  of  graphics  information  may  be  accomp- 
lished in  two  ways.  In  the  event  that  exact  locations 
are  required,  the  keyboard  may  be  used.  The  alternative 
is  the  graphics  tablet  and  electronic  pen.  C53 

The  graphics  tablet  has  two  distinct  areas  on  its 
surface.   These   are  the  graphics  area,   which   directly 
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corresponds  to  the  graphics  area  on  the  display  screen, 
and  the  menu  area,  which  provides  a  -fast  means  o-f  en- 
tering graphics  commands.  The  menu  area  consists  o-f  a 
number  o-f  small  squares,  sometimes  re-f  erred  to  as 
■function  keys.  Each  square  on  the  menu  can  represent  a 
speci-fic  command,  eliminating  the  need  to  type  the  com- 
mand -from  the  keyboard.  A  maximum  o-f  512  squares  may  be 
programed  to  per-form  particular  -functions  or  a  series  o-f 
operations.  C63 

The  electronic  pen  is  the  activating  device  that 
locates  positions  or  identifies  existing  graphic  enti- 
ties on  the  screen.  Positions  located,  or  digitized, 
generally  de-fine  construction  or  coordinate  in-f ormation. 

Like  most  computer  systems,  the  Designer  System  is 
equipped  with  a  keyboard  -for  entry  of  alphanumeric 
information.  It  contains  sixty— seven  key  positions, 
including  upper  and  lower  case,  special  symbol  keys,  and 
a  numeric  pad.  The  menu  and  keyboard  may  be  used  inter- 
changeably. 

Incorporated  into  the  Instaview  terminal  is  the 
Image  Control  Unit,  or  ICU-  The  ICU  has  twelve  switches 
and  eight  buttons  which  perform  various  functions  that 
dramatically  affect  the  image  displayed  on  the  graphics 
screen.  Functions  controlled  by  the  ICU  include  the 
display   characteristics  of  text  information  (number   of 
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lines)  and  graphics  (brightness  and  darkness  quality  o-f 
background  and  graphics).  In  addition,  the  ICU  allows 
dynamic  manipulation  o-f  model  geometry,  making  the  con- 
struction and  viewing  o-f  geometry  easier.  Dynamics  capa- 
bilities provided  by  the  ICU  include  enlarging  or 
decreasing  the  apparent  size  of  the  model  (zoom) ,  moving 
the  model  in  any  direction  o-f  the  graphics  screen 
(scroll),  and  rotation  o-f  the  model  on  any  o-f  the 
several  available  axes. 

While  generating  a  model  or  drawing  on  the  Designer 
System,  it  is  o-f  ten  desirable  to  make  temporary  working 
copies  o-f  the  work  in  progress  in  a  hardcopy  -format. 
This  capability  is  provided  by  a  desktop  thermal  dot 
matrix  printer  which  serves  as  both  a  line  printer  and 
plotter,  producing  copies  o-f  both  text  and  graphics. 
Once  a  model  design  or  drawing  has  been  completed  high 
quality  pen  or  dot  matrix  plots  may  be  generated  using 
one  o-f  several  plotting  devices. 

Operation  o-f  the  Computervision  Designer  System  is 
controlled  by  CADDS  4X  so-ftware.  Within  CADDS  4X  two 
operational  levels  exist.  These  are  the  Operating  System 
(OS)  level  and  the  Computer — Aided— Design  and  Dra-fting 
System  (CADDS) . 

Operating  System  level  activity  is  non-graphic  in 
nature,   and   generally  concerns  the  internal  management 
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o-f  CADOS  4X.  Tasks  per-Formed  at  the  OS  level  include 
creation  and  manipulation  o-f  data  files,  text  files,  and 
programs,  as  well  as  -file  transfer  operations  between 
the  system  disk  and  magnetic  tape. 

The  second  operational  level,  CAODS,  is  the  level 
at  which  all  graphics  operations  take  place.  Mi thin  this 
level  there  are  two  modes  of  operation;  model  mode  and 
draw  mode.  These  two  modes  exist  because  of  the  differ — 
ences  in  thought  processes  normally  associated  with 
design  and  drafting.  Model  mode  is  used  to  create  a 
representation  of  a  real  world  three— dimensional  object. 
When  in  model  mode,  the  designer  is  creating  an  actual 
three  dimensional  layout  of  model  geometry. 

When  constructing  a  model,  one  begins  by  activating 
a  part.  Next,  a  drawing  is  activated  and  one  or  more 
views  are  defined  to  display  the  model  geometry.  Using 
different  views  the  designer  may  observe  the  model  from 
a  number  of  different  viewpoints.  Any  number  of  drawings 
may  be  used  to  portray  various  aspects  of  the  part.  For 
example,  one  of  the  products  of  CAOSUB  is  a  drawing 
depicting  a  submarine  outer  envelope,  pressure  hull,  and 
sail.  By  blanking  from  view  various  entities  it  is 
possible  to  obtain  drawings  which  show  only  the  outer 
envelope  or  only  the  pressure  hull. 

Drawing  mode  is  used  to  generate  drawing   represen— 
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tations  o-f  the  model  by  modi-fying  or  editing  the  model's 
geometry  to  change  its  visual  appearance.  Detail  draw- 
ings with  dimensions,  text,  and  notes  may  be  developed. 
When  the  drawing  mode  is  used  to  edit  the  visual 
appearance  o-f  the  model,  changes  that  3ire  made  only 
a-F-fect  the  particular  view  in  which  the  graphic 
modi-Fication  takes  place.  This  is  in  contrast  with  the 
model  mode  where  changes  made  in  one  view  are  re-F lected 
in  all  views. 

The  CADDS  4X  graphics  was  designed  to  be  easy  to 
learn  and  to  use.  It  is  an  English  based  language,  so  it 
is  not  necessary  -For  the  operator  to  have  significant 
knowledge  of  computers.  Commands  are  entered  by  either 
typing  them  in  on  the  keyboard  or  by  using  the  menu. 
Traditional  English  spelling  conventions  are  used  -For 
all  commands,  eliminating  the  need  to  learn  computer 
commands  and  making  the  system  easier  to  learn. 

An  extremely  use-Ful  -Feature  o-F  the  Designer  System 
is  the  on— line  documentation  facility.  This  documenta- 
tion is  available  to  the  operator  at  any  time  while  in 
the  graphics  level,  and  allows  the  operator  to  obtain 
information  about  commands  without  leaving  the  worksta- 
tion to  consult  a  manual.  A  hard  copy  of  this  documenta- 
tion may  be  made  using  either  the  workstation  printer  or 
the  system  line  printer. 
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A  series  o-f  commands  or  -Functions  may  be  executed 
by  using  execute  -files.  In  those  instances  where  a 
combination  o-f  computer  graphics  and  non— graphic  proces- 
sing are  required  high  level  programming  languages  may 
be  used  to  meet  unique  needs. 

Several  applications  packages  are  available  -for  the 
Designer  System.  These  include  Finite  Element  Modeling, 
Plant  Design,  Mechanical  Design  and  Dra-fting,  Wiring 
Diagrams,  Printed  Circuit/Electrical  Schematic,  Numeri- 
cal Control,  and  others.  Each  o-f  these  packages  enhance 
the  utility  o-f  the  Designer  System  in  speci-fic  areas. 

The  primary  purpose  o-f  this  thesis  is  to  develop  a 
so-ftware  package  which  utilizes  the  interactive  graphics 
capabilities  o-f  the  Computervision  system,  yet  presents 
options  and  requests  in-formation  in  terms  easily  under — 
stood  by  a  naval  architect.  This  provides  a  use-ful 
design  tool  which  requires  only  a  minimum  level  o-f 
knowledge  about  the  system  to  operate. 

The  Computervision  Designer  System  is  an  extremely 
power-ful  tool  -for  use  in  computer  aided  design  and 
engineering.  It  is  fairly  easy  to  learn  emd  become 
pro-ficient  with  basic  operation.  However,  like  all 
computer  systems,  there  is  no  substitute  -for  experience 
i-f  one  expects  to  -fully  realize  the  Designer  System's 
-full  potential. 
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This  description  o-f  the  Designer  System  is  by  no 
means  complete.  For  a  more  thorough  explanation  o-f  the 
system  the  reader  is  re-F erred  to  the  various  Computer — 
vision  manuals  which  provide  detailed  in-formation  about 
the  system. 
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IV.  cadsub:  the  application  of  computer  aided  design  to 

SUBMARINES 

Before  a  new  technology  is  universally  accepted  it 
must  -first  be  tested  and  proven  to  be  use-Ful  and  approp- 
riate -For  the  purpose  for  which  it  is  intended.  Computer 
aided  design  is  no  exception.  The  widespread  acceptance 
of  CAD  by  the  automobile  and  aerospace  industries  may  be 
viewed  as  an  endorsement  of  its  usefulness.  It  does  not 
necessarily  follow,  however,  that  CAD  is  equally  useful 
in  all  industries-  In  order  to  make  a  reasonably  intel- 
ligent evaluation  of  the  usefulness  of  CAD  to  the  early 
stages  of  submarine  design,  the  major  focus  of  this 
thesis  was  the  development  of  user  interactive  software 
which  integrates  both  graphics  and  numerical  calcula- 
tions. Modules  developed  in  this  thesis  create  and 
display  graphic  displays  of  envelope  geometry,  aid  in 
the  design  of  the  pressure  hull,  and  demonstrate  the 
techniques  which  may  be  used  to  model  appendages.  Appen- 
dix I  contains  a  copy  of  the  graphic  output  produced  by 
these  modules.  Together  with  modules  developed  by  Hale 
in  his  thesis  "Computer  Aided  Conceptual  Design  of  Sub- 
marines", these  programs  constitute  a  package  of 
programs   referred  to  as  CADSUB.   CADSUB  is  intended   to 
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serve   as   a   tool  to  aid  in  the   conceptual   design   o-f 
submarines. 

CADSUB  is  written  in  NEWVAR,  a  macro  language 
available  on  the  Computervision  CGP— 200X  Designer 
System.  NEWVAR  allows  the  coupling  o-f  graphics  commands 
with  mathematical  calculations  in  an  execute  -file.  This 
makes  it  possible  to  create  a  program  which  processes 
data  and  executes  graphics  commands  for  the  user  without 
requiring  him  to  have  an  extensive  knowledge  o-f  the 
graphics  system.  From  the  programming  point  o-f  view, 
program  development  is  simpli-fied  because  graphics  com- 
mands are  similar  to  those  used  when  manually  manipula- 
ting graphics.  It  is  not  necessary  to  have  the  extensive 
knowledge  o-f  the  internal  workings  o-f  the  computer. 

Unfortunately,  this  convenience  is  not  obtained 
without  a  price.  NEWVAR 's  major  disadvantage  is  its 
slowness,  particularly  when  displaying  text  on  the  gra- 
phics screen.  The  handling  of  data  files  is  complicated 
by  the  fact  that  all  values  written  to  or  read  from  data 
files  must  be  in  the  form  of  text  variables.  NEWVAR  has 
no  format  statements,  making  it  difficult  to  write 
organized  output  files.  VARPR02  is  a  newer  Computer- 
vision  macro  language  having  some  improved  data  transfer 
and  formating  features.  It  is  not,  however,  subject  to 
compilation  before  execution,   and  is  thus  significantly 
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slower  than  NEWVAR. 

The  modules  developed  -for  this  thesis  are  contained 
in  -four  NEWVAR  programs.  They  are: 

MIT.FORMC 

MIT.ENV 

MIT.PHULL 

MIT.SAILl 
With  the  exception  o-f  MIT.FORMC  each  o-f  these  modules  is 
designed  to  use  data  -from  either  -from  direct  interaction 
with  the  user  or  -from  pass  -files  created  in  previously 
executed  modules.  Listings  for  each  module  are  -found  in 
Appendix  II.  Simplified  flowcharts  of  each  module  Are  in 
Appendix  III.  A  description  of  data  files  created  by 
CADSU6  is  included  in  Appendix  IV,  and  layer  descrip- 
tions are  in  Appendix  V. 

A.  THE  DRAWING  FORM 

The  module  MIT.FORMC  is  the  only  module  not 
normally  executed  by  CADSUB.  It  is  used  for  the  one  time 
generation  of  a  standard  format  drawing,  or  Form  Part. 
This  is  a  standard  feature  of  the  Computervision 
Designer  System  which  allows  creation  of  a  standard 
drawing  which  may  be  used  in  any  number  of  different 
designs. 

A   standard   C   size  (17"x22")  drawing   format   was 
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selected  -for  the  construction  o-f  this  Form  Part.  The 
actual  size  o-f  a  hard  copy  plot  may  be  scaled  at  the 
time  the  plot  is  made. 

In  addition  to  doing  such  mundane  tasks  as  drawing 
a  border  and  title  block,  three  areas  -for  the  display  o-f 
in-formation  are  de-fined  on  the  -formatted  drawing.  The 
largest  area  is  a  table  providing  detailed  pressure  hull 
segment  in-formation  in  a  spreadsheet  format-  Data  dis- 
played includes  an  identi-fying  number  -for  the  segment, 
the  -forward  and  a-ftermost  points  o-f  the  segment, 
diameters  at  these  locations,  volume,  and  the  location 
of  the  segments  center  of  buoyancy-  A  maximum  number  of 
twenty  pressure  hull  segments  is  allowed,  and  data  for 
all  twenty  are   displayed  simultaneously. 

The  Pressure  Hull  Design  Summary  displays  informa- 
tion concerning  the  pressure  hull,  which  is  created  in 
the  pressure  hull  module-  Volume  Required  is  the  total 
volume  of  the  pressure  hull.  This  does  not  include 
volume  reserved  for  air  flasks,  appendages,  or  other 
everbuoyant  items.  Volume  Used  is  the  volume  occupied  by 
pressure  hull  segments  which  make  up  the  pressure  hull 
at  any  given  time.  The  Volume  Remaining  is  simply  the 
difference  between  the  required  volume  and  the  volume 
used.  The  center  of  buoyancy  of  the  entire  pressure  hull 
is  also  displayed. 
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The  principle  characteristics  o-f  the  submarine  are 
displayed  in  the  third  data  display.  Characteristics 
shown  include  length  overall,  diameter,  the  extents  o-f 
the  parallel  midbody,  submerged  displacement  and  center 
o^  buoyancy,  and  the  envelope  displacement. 

B.  ENVELOPE  GEOMETRY 

A  graphic  display  o-f  the  envelope  geometry  is 
created  in  the  module  MIT.ENV.  Execution  o-f  this  module 
is  largely  automatic,  and  requires  the  user  only  to 
specify  the  type  o-f  terminal  (color  or  monochromatic) 
being  used.  The  only  reason  -for  this  interaction  is  the 
strange  and  inconsistent  e-f-fects  observed  when  using 
color  commands  on  a  monochrome  terminal. 

Following  specification  of  terminal  type  the 
program  obtains  offsets  and  principal  dimensions  from 
pass  files  created  in  earlier  modules.  To  make  full  use 
of  the  available  screen  area  an  appropriate  scale  factor 
for  the  drawing  is  then  selected  based  upon  the  overall 
length  of  the  design.  Lengths  may  range  up  to  888  feet. 
Since  the  CGP-200X  requires  an  origin  to  be  specified 
for  each  view  shown  in  a  drawing,  the  location  of  the 
origin  is  also  calculated  using  the  overall  length  and 
scale  factor.   This  allows  the  centering  of  the  envelope 
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graphics  on  the  drawing. 

When  constructing  a  geometric  model  on  the  CGP— 
200X,  one  must  -first  activate  a  part  and  a  drawing.  The 
drawing  used  is  the  Form  Part  generated  by  the  module 
MIT.FORMC.  Using  the  layering  -features  o^^  the  CGP-200X, 
the  areas  o-f  the  drawing  used  to  display  pressure  hull 
data  are  blanked,  or  removed  from  view.  Next,  three 
views  o-f  the  model  are  de-fined.  These  are  top,  le-ft,  and 
a  standard  isometric  view.  I-f  desired,  any  o-f  these 
views  may  by  manually  manipulated  by  the  user  using  the 
dynamics  capability  o-f  the  Designer  System  to  provide  a 
view  o-f  the  model  -from  any  perspective.  The  top  view  is 
not  used  in  CADSUB  in  its  present  -form,  and  is  blanked 
invisible  immediately  a-fter  its  creation-  It  is  provided 
to  -facilitate  arrangement  and  deck  layout.  The  le-ft  view 
provides  a  pro-file  of  the  submarine's  port  side. 

A  scale  is  next  drawn  to  provide  orientation  to  the 
user.  Two  scales,  one  horizontal  and  one  vertical  a^re 
drawn  and  labeled.  The  locations  of  the  aft  most  point 
of  the  forebody  and  forward  most  point  of  the  afterbody 
are  indicated  with  two  markers.  This  entire  process  is 
somewhat  time  consuming  and  could  be  eliminated  alto- 
gether if  a  single,  fixed  scale  were  used.  However, 
clutter  is  reduced  and  the  overall  appearance  of  the 
drawing   is  improved  by  using  a  scale  which  matches   the 
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design. 

As  explained  by  Hale,  a  total  of  132  unequally 
spaced  o-f-Fsets  are  used  to  properly  portray  hull  curva- 
ture and  transition  at  section  junctions.  C73  These 
of -F set 5  Sire  noM  plotted  and  used  to  fit  a  Bezier  spline 
curve  which  forms  the  envelope  profile.  This  two 
dimensional  envelope  outline  is  then  rotated  about  the 
submarine's  centerline  to  form  a  surface  of  revolution. 
A  mesh  pattern  is  superimposed  on  the  surface  to  aid  in 
visualization  of  the  resulting  three  dimensional  form. 

The  submarine's  principal  characteristics  are  next 
displayed  on  the  drawing,  and  program  execution  passes 
to  the  next  module  where  the  pressure  hull  is  designed. 

C.  PRESSURE  HULL  DESIGN 

The  most  complex  graphics  module  now  in  CADSUB  is 
MIT.PHULL.  Information  entered  interactively  by  the  user 
is  processed  to  generate  both  numerical  and  graphical 
data  on  the  CRT  display. 

As  in  the  previous  module,  the  first  step  taken  is 
to  obtain  data  from  pass  files.  This  data  includes  the 
diameter,  overall  length,  length  of  the  forebody  and 
afterbody,  and  the  fullness  coefficients  which  define 
the  forebody  and  afterbody. 

The  first  information  required  from  the  user  is  the 
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amount  o-f  the  A  weight  to  be  reserved  -for  everbuoyant 
items  such  as  air  flasks,  appendages,  and  structure 
Mhich  are  not  included  in  the  pressure  hull.  Following  a 
prompt  which  displays  the  A  weight,  the  user  inputs  the 
number  o-f  tons  he  wishes  to  reserve-  The  required 
pressure  hull  volume  is  then  determined  by  reducing  the 
A  weight  by  the  amount  to  be  reserved  converting  weight 
to  volume. 

Next,  the  isometric  view  o-f  the  outer  envelope  is 
blanked  and  the  layers  containing  the  pressure  hull 
design  summary  and  detailed  pressure  hull  segment  in-for — 
mat ion  are  activated.  The  pressure  hull  design  summary 
is  then  initialized  by  displaying  the  required  and 
reserved  volumes. 

The  pressure  hull  is  made  up  o-f  one  or  more  seg- 
ments, each  having  -fairly  simple  geometry.  C83  The  de- 
sired shape  is  selected  -from  a  menu.  Shapes  currently 
allowed  by  CADSUB  include  the  following: 

Right  circular  cylinder 

Conical  Transition 

Flat  plate  end  closure 

Spherical  end  closure 

Elliptical  end  closure 

Spherical  sonar  dome  with  end  closure 
The   user  also  has  the  option  o-f  requesting  the  diameter 
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o-f  the  outer  envelope  at  any  location  a-ft  o-f  the  -forward 
perpendicular  or  changing  an  existing  segment  with  the 
edit  -function- 

D-  PRESSURE  HULL  SEGMENTS 

Once  the  shape  o-f  the  pressure  hull  segment  is 
selected  the  user  is  prompted  -for  in-formation  which 
specifies  that  shape's  geometry.  In  most  cases  this 
consists  o-f  the  location  o-f  the  -forward  and  a-ftmost 
points  o-f  the  segment  and  diameters  at  these  points.  All 
in-formation  provided  by  the  user  is  stored  in  arrays  so 
that  it  is  readily  available  if  needed. 

CADSUB  uses  this  information  to  generate  graphics 
in  a  two  step  process.  First  a  two  dimensional  profile 
of  the  segment  is  drawn,  then  rotated  about  the  center- 
line  to  form  a  surface  of  revolution.  A  mesh  pattern  is 
added  to  aid  visualization. 

For  simple  segments  such  as  cylinders,  cones,  and 
flat  plate  closures  this  is  a  line.  Spherical  segments  a 
formed  by  rotating  a  circular  arc  about  the  centerline. 
The  graphics  command  used  to  draw  elliptical  segments 
requires  four  points.  These  are  two  endpoints,  one  at 
the  outer  end  of  each  axis,  a  point  on  the  ellipse,  and 
the  intersection  of  tangents  perpendicular  to  the  axes. 
These  locations  are  calculated  by  the  program  and  do  not 
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require  any  additional  input  -from  the  user. 

Following  construction  o-f  graphics  the  volume  and 
center  o-f  buoyancy  o-f  each  segment  is  calculated  analy- 
tically. This  in-f ormation,  together  with  the  locations 
and  diameters  o-f  the  ends  o-f  the  segment  are  displayed 
on  the  drawing  as  detailed  segment  in-f  ormation.  The 
total  volume  used,  volume  remaining,  and  center  o-f  buoy- 
ancy o-f  the  entire  pressure  hull  are  also  updated. 

Mhen  a  spherical  end  closure  is  selected  the  user 
has  the  option  o-f  directly  entering  endpoints  and  dia- 
meters or  selecting  an  automatic  closure.  The  automatic 
closure  option  requires  a  spec  i-fi  cat  ion  o-f  a  volume  to 
be  enclosed  by  the  segment  as  well  as  the  location  and 
diameter  o-f  the  base.  It  then  calculates  the  radius 
endpoints  o-f  the  segment. 

A  spherical  sonar  dome  may  be  specified  with  three 
inputs.  These  are  the  sphere  diameter,  diameter  o-f  the 
access  trunk  leading  to  the  sonar  sphere,  and  the  center 
o-f  the  sphere.  Once  speci-fied,  points  de-fining  the 
sphere  in  the  -format  required  to  generate  graphics  are 
calculated,  the  volume  and  center  o-f  gravity  o-f  the 
sphere  (without  the  small  volume  occupied  by  the  access 
trunk)  are  calculated,  and  the  appropriate  values  are 
displayed  on  the  drawing.  The  user  is  then  in-formed  of 
the   location  o-f  the  aft  most  point  on  the  sonar   sphere 
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and  prompted  -for  the  location  o-f  the  a-ft  most  point  o-f 
the  access  trunk-  A  right  circular  cylinder  is  used  to 
construct  the  access  trunk, 

E.  CHANGING  THE  PRESSURE  HULL 

As  construction  o-f  the  pressure  hull  progresses  it 
may  become  apparent  that  it  is  unacceptable  that  it 
simply  will  not  balance  properly.  It  is  also  possible 
that  the  user  may  input  an  incorrect  value  and  find 
himself  looking  at  a  pressure  hull  segment  which  is  not 
what  he  wanted.  Both  of  these  situations  may  be  cor- 
rected using  the  pressure  hull  editor  routine. 

Mhen  requested,  the  editor  requests  the  segment. to 
be  deleted.  All  graphics  and  numerical  data  relating  to 
this  segment  are  then  erased  from  the  screen.  Volume 
used,  volume  remaining,  and  pressure  hull  center  of 
buoyancy  are  all  changed  to  reflect  this  deletion. 

The  user  is  next  presented  with  a  menu  similar  to 
the  one  used  to  select  pressure  hull  segments.  Should 
the  user  desire  to  generate  a  new  segment,  he  selects 
the  form  of  the  segment  and  follows  prompts  as  if 
entering  a  new  segment.  Data  pertaining  to  the  new 
segment  is  displayed  in  the  same  location  as  for  the 
segment  which  was  deleted.  Following  generation  of  the 
new  segment  the  user  is  returned  to  the  main  menu.  It  is 
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not  necessary  to  insert  a  new  segment  -following  deletion 
o-f  another. 

F.  WHAT'S  THE  DIAMETER  HERE? 

The  scale  generated  in  the  previous  module  is 
designed  only  to  give  a  general  idea  o-F  location  within 
the  envelope.  Even  with  the  high  quality  graphics  gener- 
ated on  a  Computervision  color  monitor  it  is  difficult 
to  estimate  the  diameter  o-f  the  envelope  using  only  the 
drawing  scale. 

It  is  possible  to  obtain  the  diameter  o-f  the 
envelope  at  any  location  -from  the  main  menu.  This 
•function  prompts  the  user  -for  the  location  at  which  the 
diameter  is  desired.  Using  the  fullness  coefficients  and 
lengths  of  the  forebody  and  afterbody  the  diameter  at 
that  location  is  calculated.  The  diameter  is  then  dis- 
played on  the  CRT  and,  after  a  brief  pause  so  that  it 
may  be  read,  the  main  menu  is  once  again  displayed. 

Should  the  user  not  check  the  diameter  and  try  to 
enter  a  segment  larger  than  the  envelope  an  error 
message  will  be  displayed.  The  program  will  then  prompt 
for  new  inputs  for  a  segment  of  the  same  shape. 

G.  LEAVING  THE  PRESSURE  HULL 

Assuming  a  pressure  hull  is  finally  completed  which 
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has  a  chance  o-f  balancing,  the  user  may  select  the 
option  to  leave  this  module.  He  is  then  asked  if  a  hard 
copy  plot  o-f  the  drawing  is  desired,  and  preparations 
aire   made  to  exit  the  module. 

Prior   to   entering  the  next  module  all   data   con- 
cerning the  pressure  hull  is  saved.   This  data   includes 
all   in-formation  displayed  in  the  pressure  hull   summary 
as  well  as  all  detailed  segment  in-formation. 
H.  APPENDAGES 

Construction  of  appendages  is  not  now  fully  imple- 
mented in  CADSUB.  The  module  MIT.SAILl  was  developed  to 
demonstrate  the  techniques  which  may  be  used  to  generate 
a   graphic  display  of  appendages. 

As  in  previous  modules,  pass  files  are  used  to 
obtain  information  describing  the  forebody  and  after — 
body.  In  addition  a  pass  file  is  used  to  obtain  offsets 
which  define  the  sail.  The  user  is  prompted  for  the 
location  of  the  forward  edge  of  the  sail.  Construction 
of  the  sail  begins  by  determining  several  points  along 
the  curve  of  intersection  between  the  sail  and  outer 
envelope.  Knowing  the  location  of  the  sail  it  is  pos- 
sible to  determine  the  diameter  of  the  envelope  at  any 
point  along  the  length  of  the  sail.  Then,  using  the 
equation  describing  defining  that  circle,  the  exact 
point  of  intersection  may  be  determined.   The  points   of 
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intersection  are  plotted  and  connected  using  a  three 
dimensional  Bezier  spline  curve.  This  process  is  done 
twice,  once  -for  the  port  side  and  once  -for  the  starboard 
side. 

The  upper  edge  o-f  the  sail  is  drawn  by  plotting 
of -f sets  at  a  constant  height  above  the  outer  envelope. 
Again,  the  points  are  connected  with  a  Bezier  spline 
curve.  The  upper  and  lower  boundaries  o-f  the  sail  are 
connected  using  a  ruled  sur-face. 

Upon  completion  o-f  the  sail,  the  user  is  once  again 
asked  i-f  a  hard  copy  plot  o-f  the  graphic  display  i-f 
desired.  Prior  to  leaving  the  module  the  user  is  also 
asked  i-f  he  desires  to  proceed  directly  to  the  balance 
module  (see  Hale).  I-f  so,  the  meshes  on  all  three  dimen- 
sional graphics  entities  are  reduced  to  a  two  dimen- 
sional -form.  This  is  done  to  enhance  the  readability  o-f 
text  data  generated  by  the  balance  module  within  the 
pressure  hul 1 . 
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V-  EVALUATION  OF  CADSUB 
A.  GENERAL  COMMENTS 

Software  developed  -for  this  thesis  represents  a 
-first  attempt  to  incorporate  interactive  computer  gra- 
phics into  the  conceptual  design  of  submarines.  The 
resulting  product  is  not,  by  any  stretch  of  the  imagina- 
tion, a  product  which  may  be  marketed  as  a  complete 
submarine  design  product.  It  does,  however,  demonstrate 
the  utility  of  linking  interactive  user  control, 
numerical  analysis,  and  three  dimensional  graphics  into 
a  single  powerful  design  tool. 

The  interactive  nature  of  the  program  allows  the 
user  to  control  all  important  design  decisions. 
Throughout  the  development  of  the  software  it  was 
assumed  that  any  potential  user  would  have  a  well 
founded  knowledge  of  the  principles  of  naval  architec- 
ture and  submarine  design.  It  is  not  the  purpose  of  the 
software  to  replace  the  designer,  only  to  provide  a  tool 
which  aids  in  the  design  process. 

It  is  the  coupling  of  real  time  graphic  displays 
and  numerical  analysis  which  establish  the  credibility 
and  worth  of  the  computer  aided  design  approach  of  the 
software.  The  many  hours  required  to  perform  manual 
calculations   and  drafting  may  be  reduced   significantly 
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by  using  computer  generated  graphics.  In  addition,  a 
user  having  even  a  rudimentary  knowledge  o-f  the  Compu— 
tervision  system  can  use  that  ability  to  go  -Far  beyond 
the  capabilities  o-f  the  software  as  it  now  exists. 

B.  PROPOSED  ENHANCEMENTS  TO  CADSUB 

As  mentioned  previously  CAOSUB  is  not  now  in  what 
could  be  considered  a  complete  -Form.  Mhile  it  has  a 
number  o-f  desirable  -features  and  capabilities,  it  also 
has  a  number  o-f  shortcomings  and  additional  features 
which  should  be  implemented.  Many  o-f  these  are  minor  and 
require  only  a  little  work  to  overcome.  Others  will 
require  a  major  e-f-fort  to  implement.  These  areas  are 
outlined  below. 

1-  PROGRAM  SPEED  AND  THE  USER  INTERFACE 

When  evaluating  the  e-f -f  ecti  veness  o-f  computer 
so-ftware,  particularly  so-ftware  which  relies  heavily  on 
user  interaction,  the  interface  between  the  user  and  the 
program  is  just  as  important  as  what  calculations  the 
programs  performs  or  what  graphics  it  generates.  Much 
work  remains  to  be  done  in  this  area. 

One  of  CADSUB' 5  major  def f iciencies  at  this  point 
is  the  time  it  requires  to  complete  certain  tasks.  The 
most  glaring  examples  involve  the  insertion  of 
alphanumeric   information  into  a  drawing.   The   creation 
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and  labeling  o-f  scales  and  the  updating  o-f  pressure  hull 
information  appear  to  be  almost  fascinating  the  -first 
time  they  are  viewed  by  the  user.  However,  computers 
have  the  unique  ability  to  slow  the  apparent  passage  o-f 
time,  so  that  a-fter  observing  such  tasks  a  couple  o-f 
times  they  become  only  slightly  more  interesting  than 
watching  grass  grow.  The  best  solution  to  this  part- 
icular problem  seems  to  be  translation  o-f  the  so-ftware 
into  a  -faster  language  such  as  Fortran— S. 

Improvements  can  most  likely  be  made  in  prompts 
provided  to  the  user  -for  data  and  decisions.  Currently 
all  prompts  are  provided  by  printing  a  menu  or  a  state- 
ment on  the  CRT  and  waiting  -for  a  response  to  be  typed 
on  the  keyboard.  Computervision  designed  the  CGP— 200X  as 
a  user  -friendly  system  and  incorporated  a  variety  of 
user  input  devices.  Two  of  these  which  should  be 
evaluated  for  inclusion  in  CADSUB  are  keyfiles  and 
dynamic  menuing. 

Keyfiles  utilize  the  digitizer  tablet  to  replace 
many  of  the  functions  of  the  keyboard.  Using  keyfiles  it 
is  possible  to  program  an  area  of  the  digitizer  tablet 
to  perform  a  particular  command,  and  thus  eliminate  the 
need  to  use  the  keyboard.  For  example,  to  select  a 
cylindrical  pressure  hull  segment  the  user  now  selects 
an   option  from  a  menu  by  entering  a  number  on  the   key— 
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board.  Using  key-files  and  the  digitizer  tablet  it  would 
be  possible  to  select  the  same  segment  by  digitizing  an 
area  having  a  symbolic  cylinder  drawn  on  it- 
Dynamic  menuing  is  the  process  o-f  selecting 
instructions  which  are  displayed  as  keywords  on  the  CRT 
screen.  As  with  key-files,  decisions  are  entered  using 
the  digitizer  tablet. 

The  use  of  key-files  or  dynamic  menus  may  or  may  not 
enhance  the  utility  o-f  CAOSUB.  They  are,  however, 
alternatives  which  should  be  investigated. 

2-  ERROR  HANDLING 

The  only  significant  error  handling  routine 
currently  included  in  the  graphics  modules  of  CADSUB  is 
one  which  verifies  that  the  diameters  of  pressure  hull 
segments  are  less  than  the  outer  envelope  diameter  at 
each  end  of  the  segment.  Should  one  select  a  menu  option 
which  is  not  specified  (i.e.  option  9  when  only  1—7  are 
allowed)  will  simply  return  program  execution  to  the 
menu  for  another  response. 

It  is  possible  to  crash  the  program  in  a  number  of 
ways.  For  example,  entering  letters  in  response  to  a 
prompt  for  numerical  information  has  a  catastrophic 
effect  and  causes  the  system  to  exit  the  program.  A 
quirk  of  the  Computervision  system  is  that  it  has  con- 
siderable  difficulty  in  inserting  negative  values  in   a 
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drawing   as   text-   This  problem  has  been   resolved   -for 

those  areas  in  which  one  might  expect  to  -Find  a  negative 

value   appear.   Should  a  negative  value   be   encountered 

which   must  be  displayed  elsewhere  the  results  could   be 
disappointing. 

3.  PROGRAM  FLOW 

Unless  the  user  is  knowledgeable  about  the  Compu— 
tervision  operating  system  he  is  locked  into  the 
sequence  modules  are  executed  by  the  so-Ftware.  In  any 
case,  it  is  not  possible  to  make  changes  to  a  pressure 
hull  design  a-fter  it  has  been  created  and  the  pressure 
hull  module  has  been  le-ft  for  the  balance  module.  The 
ability  to  re— enter  individual  modules  should  be  imple- 
mented to  make  it  less  time  consuming  to  make  iterations 
on  a  design.  In  the  case  o-f  the  pressure  hull  this 
simply  requires  an  option  to  activate  a  previously 
created  design  and  obtain  data  from  pass  files  concer — 
ning  the  pressure  hull.  This  data  is  already  stored  when 
the  pressure  hull  module  is  completed. 

C.  FEATURES  TO  BE  IMPLEMENTED 

The  number  of  features  which  may  be  added  to  the 
software  developed  in  this  thesis  is  limited  only  by 
one's   imagination.   Development   of  CADSUB   has   barely 
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scratched   the  sur-face  in  an  area  ripe  -for  research   and 
devel opment . 

1.  STRUCTURAL  DESIGN 

No  structural  design  capabilities  are  now  included 
in  CADSUB.  This  represents  a  major  area  in  which  consid- 
erable work  may  be  done,  and  also  o-f-fers  an  opportunity 
to  evaluate  the  desirability  o-f  using  -finite  element 
analysis  in  an  interactive  graphics  environment.  Com- 
puter vision  supports  automatic  mesh  generation  as  well 
as  several  methods  of  graphically  displaying  results. 

2-  ARRANGEMENTS 

One  o-f  the  most  use-ful  applications  o-f  computer 
aided  design  is  likely  to  be  in  the  development  o-f 
arrangements.  Using  solid  modeling  techniques  three 
dimensional  models  may  be  created  and  maintained 
throughout  the  design  process. 

Development  o-f  arrangements  should  begin  with 
creation  o-f  decks.  This  may  be  done  by  either  explicitly 
calculating  the  lines  o-f  intersection  o-f  the  proposed 
deck  with  the  pressure  hull  or  by  using  graphics  com- 
mands to  insert  a  plane  at  a  speci-fic  location.  Exper- 
imentation is  required  to  select  the  most  ef-ficient 
method. 

Implementation   o-f  the  capability  to  zoom  in   on   a 
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speci-fic  areet  o-f  the  design  and  expand  it  to  use  the 
entire  area  o-f  the  CRT  is  highly  desirable.  Along  with 
this  capability  is  the  requirement  -for  a  dynamic  display 
of  location  to  provide  orientation  to  the  user.  The 
scale  created  by  CADSUB  when  drawing  the  outer  envelope 
is  -Fixed  in  place  and  not  suitable  -For  this  purpose. 

The  use  o-F  three  dimensional  solid  modeling  would 
be  o-f  considerable  use  in  developing  three  digit  weight 
reports.  Each  piece  o-f  equipment  included  in  the  design 
may  be  represented  by  a  model  stored  in  a  library  o-F 
parts.  Each  solid  model  has  a  volume,  weight,  and  center 
O-F  gravity  associated  with  it-  This  data  may  be 
extracted  when  the  model  is  inserted  in  the  design. 
Thus,  the  accuracy  o-F  the  total  weight  is  dependent  on 
the  accuracy  o-F  data  contained  in  the  library  and  its 
completeness.  Creation  o-F  a  library  o-F  equipment  -For  use 
in  arrangements  is  not  likely  to  be  a  trivial  task. 

The  use  o-F  three  dimensional  modeling  may  also  have 
a  signi-Ficant  impact  on  reducing  interference  problems. 
Automatic  interference  checking  routines  would  allow  the 
resolution  of  interferences  in  the  computer  model  long 
before  actual  construction  begins. 

3.  DESIGNS  USING  NON-CIRCULAR  CROSS  SECTIONS 

This  thesis  has  dealt  only  with  submarine  designs 
having  circular  cross  sections.   Pressure  hull   segments 
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include  only  those  having  a  simple  shape  for  which 
volumes  and  centers  o-f  gravity  are   easily  calculated. 

Pressure  hull  segments  which  -follow  the  contour  or 
the  outer  envelope  may  be  easily  implemented  by  adding 
the  appropriate  data  input  prompts  to  the  pressure  hull 
module.  A  routine  to  calculate  volume  and  center  o-f 
buoyancy  using  numerical  integration  is  also  required. 
The  routine  to  calculate  the  envelope  diameter  at  any 
location  already  exists  and  may  be  used  to  obtain  points 
■for  integration  as  well  as  inclusion  in  graphics 
commands. 

The  design  o-f  a  submarine  not  having  a  circular 
cross  section  may  be  implemented  using  techniques 
slightly  di-f-ferent  from  those  now  used  -for  designs 
having  a  circular  cross  section. 

Envelope  geometry  o-f  designs  having  a  circular 
cross  section  are  constructed  by  obtaining  o-f -f sets, 
plotting  them  to  obtain  a  two  dimensional  representation 
o-f  the  envelope,  then  rotating  the  outline  about  the 
centerline  to  obtain  a  sur-face  o-f  revolution.  To  con- 
struct a  model  o-f  a  non— circular  design  it  is  first 
necessary  to  plot  not  individual  offsets  but  a  series  of 
cross  sections.  These  cross  sections  may  the  be  con- 
nected using  standard  graphics  commands  to  generate  a 
three  dimensional  Bezier  spline  surface.   Pressure   hull 


47 


segments   having   non— circular   cross   sections   may   be 
generated  in  a  similar  manner. 

D.  CONCLUSIONS 

Computer  aided  design  using  both  graphics  and 
interactive  programming  has  the  potential,  i-f  properly 
managed,  to  improve  the  design  process  by  allowing  time 
to  examine  more  alternatives  in  greater  detail.  The 
so-ftware  developed  -for  this  thesis  uses  only  a  small 
■fraction  o-f  the  capability  available  on  a  modern  CAD 
system.  In  fact,  much  of  what  is  now  done  in  CAOSUB  can 
easily  be  implemented  on  any  one  of  several  microcompu- 
ters- However,  the  potential  uses  and  benefits  of  com- 
puter aided  design  far  exceed  those  of  microcomputers- 

The  application  of  CAD  technology  to  the  ship 
design  process  is  just  beginning  and  offers  considerable 
potential.  As  with  all  new  technology  it  must  be  pro- 
perly managed.  CAD  should  be  viewed  as  a  tool  to  aid  the 
designer  in  making  decisions.  It  should  not  be  seen  as  a 
means  to  either  shorten  the  design  process  or  to  reduce 
the  manpower  required  to  develop  a  design,  but  rather  as 
a  means  to  improve  the  design  process. 
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APPENDIX  I 
SAMPLE  OUTPUT  FROM  GRAPHICS  MODULES 
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APPENDIX  II 
PROGRAM  LISTINGS  FOR  GRAPHICS  MODULES 
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MIT.&HCD.FOHMC 
5-  2-64     IUI46I 13 


FUTIL  6.21 


)  !  <#*•******«************«***'*************'*'* 


2 
3 
4 
5 
o 
7 

10 
I  I 
12 
13 
14 
\j 
lo 
I  / 
lu 
\<^ 
2U 
21 
?2 
22 
?4 
2b 
2o 
2/ 
2b 
2Q 
3U 
31 
32 
33 


<»    MiT.F().<MC 

<^***  ****************  A****** '*********'**'*** 

<#    UiiEn   To   t>i?T   UP   nWArtlNG    FOHM 

<<* 

<#  **************************************** 

ACTIVATE    f^AHT    M  IT. SUB.  FORMAT    MUNlTii    FT 

ACTlVAfh    DHAWING    FORMC    SIZE   C 

SELtCT   MOnt   nwArt 

<'*U> 

INiitWT   LINEj    X.5Y.b,IX21  .IY16.IX-21  .IY-I6<CK> 

IN5EWT   LINE*    XI4Y.b,IYI .5.IX/.5<CH> 

<#  SET   UP    INFORMATION   TABLES 

bkLtCT   LAYER   200 

INSERT    LINt«    X14Y2.XI4Yb.  /5<CR> 

INSERT   LINE«    X.SYo. 75, IXP l<CR> 

<^ 

<#  PRESSURE  HULL  DESIGN  SUMMARY 

<# 

INSERT  TEXf    "PRESSURE    HULL   HESIGN    SUMMARY"    HOT. I875« 
LINEj    XI4.75Yd.3.XP0.6bYtt.3<CR> 
TEXT    "VOLUME    REOUlREDt       "    HGT.ia/5«    XI4.75Ya<CR> 

"VOLUME    USED*  "    HGT.Id/5t    X 1 4. 75Y7. 6b75<CR> 

"VOLUME    REMAINING*       "    HGT.ld/5»    XI 4. 75Y /. 3 /5<CR> 
"REbERVhn   VOLUME!"   HGT.187b«    X 14. 75Y7.Uo2b<CR> 
"CENTER    OF   bUoYANCYi"    HGT.lcJ/5«    XI 4.  75Y6. /5<CR> 


XI4.75Y8.4<CH> 


INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

<# 

<P    DETAILED 

<# 

INSERT  TEXT 


TEXT 
TEXT 
TEXT 
TEXT 


SEGMENT    INFORMATION 


"PRESSURE    HULL   SEGMENTS"    HGT. 187b«    XIYb.4<CR> 
34!lN:ihRT   LINE«    X  I  Yd.3  ,X5.7Yb.3<CH> 

TEXT    "SEG"   HGT.  Ib7b«    XlYd<C^v>  - 

"FWD"   HGT. 1875*    X2. /5Yd<CR> 
"AR"   HGT.  18751    X4. /5Yb<CR> 
"DFWD"    HGT.I87DI    X6.6b /5Yb<CR> 
■"DAFT"   HGT.  Ib/bx    Xb.  6b75Yb<CR> 
"VOL"    HGT. 1875*    XIO.  /5Y8<CR> 
"LCH"   HGT. 1875 « 


3b 
36 
3/ 
38 
3Q 
40 
41 
42 
43 
44 
45 
4o! 


INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

Insert 

INSERT 
SEG=1 
XSEGa I . b 
YSEG»7.o«/'i 
REPEAT 
4SEG»SEG 


TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 


XI2.75Y8<CR> 


4  11       INSERT  TEXT    [&SEG1    HGT. lb/5   HJT«    X[ XSEGI Yt YSEGI <CR> 

48!      SEG»StG*l 

4^!      YSEG»YSEG-.3l2b 

5D1UNT1L    (SEG.GT.20) 

bl !<# 

52! <#  PRINCIPAL  CHARACTERISTICS 

53 ! <P 

54! SELECT  LAYER  I OW 

55! INSERT  LINEi  X 14Y2  . 1 Y4 .1X7.5 

bO! INSERT  TFXT  "PRINCIPAL  CHARACTERISTICS"  HGT.Id/5»  XI 4. /5Y5.65<CH> 
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b/ 

INbHHT 

5a 

lNSt«r 

bQ 

iNbKHT 

60 

iNSfc'^r 

61 

.  INbHHT 

62 

INSKHT 

63 

iNiJHiHT 

64 

iNShHT 

65 

SbLtCT 

06 

iNbEWT 

6/ 

<*u> 

6ti 

EXIT    P 

6^ 

KHbP    Nl 

/I) 

END 

LINE*    XM.75Y5.5b,IXb.  I<CH> 
TEXT   "LENGTH    OVERALL*  " 

"OlAMErEf^*  " 

" ENTRANCE    ENDS*  " 

'•HUN    BEGINb*  - 

"SUBMEHGED    LCB*  " 


HGfe  Id7b* 
HOT. 187b* 
HGT. IB/5* 
HGT. Ib7b« 
HGT, !b/5« 


XI4.75Y5.25<CR> 
XI4.7bY4.Q37b<CR> 
XI4. /5Y4.625<CH> 
XI4./bY4.3l?b<Ctt> 
X14.  /5Y4<CR> 


TEXT 

TEXT 

TEXT 

TEXT 

TEXT    "iiUHMEHGEn   l)IbP«"   HGT.Id75«    X  I  4.  /5Y3.6d75<CH> 

TEXT   "ENVELOPE   OISP*"    HC7r.lcl/5«    X 1 4. /5Y3.3/5<CH> 

LaYEW   20b 

TEXT    "-"  HGT. lo/b*    X20.2bY7.37b<CH> 

AH  F 

FIG  Mir. SUB. FORMAT  OHAW  FORMC 
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MIT.&BCU.HNV 
5-l5-d4    I2»26«43    FUTIL   6.21 


2!<#  "IT.tNV 

3!  or**********'****'*'****'********'*** 

4!<# 

5!<#  -GENEHATES  VIEWS 

0!<#  -GENERATES  DRAWING  OF  ENVELOPE 

7!<# 

dlKlf  **********  it******************* 

yiniM  X( 132)  ,Y( 132) 
lU!nEC=0 
I  I  lEXECV 
I2!#C()L()H 
13!HWNT 
14IPHNT 
I5!PHNT 

I6IHEAI)  (lb  THIS  A  C>OU)H    ()«  M>ON()CHH()ME  TtHMlNAL?  )4TYPE 
I/5IF  {&TYPE.NE."C".AND.(iTYPE.NE.»M»)  GOTO  COLOH 
IbiPHNT 
IQ'PHNT 
20JPHNT 

;>l!PHNT  OBTAINING  OFFSETS  FHOM  OATA  FILE... 
22!OPENH  1 ."MIT. POINTS" 
23!<*U> 

24!  <0*********'i******************** 
25!<#  rfEAl)  OFFSETS 

P.bl  <w* ***************************** 
27!I=I 
2b! REPEAT 
2Q!   HtADF  I .XTXT 
3U!   X(I)=&TXT 
31!   HhAUF  l.iTXT 
32!   Y(I)«&TXT 
33!   1=1*1 
34 'UNTIL  (I.EQ.I33) 

36! <0 *******************  *********** 
36! <»  HEAO  PRINCIPAL  DIMENSIONS 
37!  < -if  *******************  *********** 
3c(!0PENR  2."MiT.PASSPHl" 
3y!HEADF  2,&0IAM 
40!HEA0F  2.AL0A 
4  1  !HEAI)F  2,^LF 
42!HEAnF  2,*LLA 
43!HhAl)H  2,ALCBSB 
44!HEADF  2,XnSUB 
45!HEA()F  2,&l)ENV 
46101 AMa^DI AM 
4/!L()A»AL()A 
4d!LF»ALF 
49!LLA*iLLA 
50!LCBSUB-ALCBSH 
bl  !nSUH»S.I)SI)B 
52!DENV»ADENV 
b3!LA«L0A-LLA 
54!&LA»LA 

55!0PENrt  3,"MIT.PASSPH2" 
56!HEAOF  3,&AWGHT 


56 


DlAM=AlNT((l)lAM*.OtJ)*IO)/>0 

ADlAM=uiAM 

L(1A=(AINT(  (L()A+.Ob)«IO))/IO 

«iL()A=LOA 

LF= ( A I  NT ( ( LF+ . Ob ) *  1 0 ) ) / 1 0 

4LF=LH 

LA=<AINT((LA+.05)*IO))/I0 

&LA»LA 

&LCbSB=LCBSUd 

nbUB=(AlNT((Di>Ub+.U5)*lU))/)U 

&DbUb=DSUB 

DENV=(AINT((nENV+.U5)*IO))/13 

&ntNV=UENV 

<#  SET  UP  CSIZE  OHAWlNG 

<lt  it  »■»  *********  ****■»  ******** -it**************** 

#'JiiIZE 

<# . . 

<»  SELECT  SCALE  FACTOW 

<0 . , 

IF  (LOA.LE. 140)  SCL=d 

IF  (LOA.Crr.  Ma. AND. LOA.LE.  Ib5)  SCL*1U 
IF  (LOA.GT.  I  dfi.  AND. LOA.LE.  2?2)  SCL=I2 
IF  (LOA.GT.2?2.ANn.L()A.LF.2Q6)  SCL=I6 
IF  (LOA.GT.^'Jb. AND. LOA.LE. 3/0)  SCL=20 
IF  (LC)A.GT. 370. AND. LOA.LE.  440)  SCL=24 
IF  (LOA.GT. 440. AND. LOA.LE. 592)  SCL=32 
IF  (L0A.GT.b'*2.ANl).  LOA.LE.  740)  SCL=40 
IF  (LOA.GT. /40)  SCL=4b 

<# 

<#  DETERMINE  LOCATION  OF  ORIGIN 

<# 

XOHG=l .75+( lb.5-LOA/SCL)/2 

Y0HG=I2.25 

<# 

<#  ACTIVATE  DRAWING 

<» — 

ACTIVATE  PART  MIT.SUHORA  MUNITS  FT 

ACTIVATL  DRAWING  FORMAT  FORM  MiT. SUB. FORMAT  DRAW  FORMC 

SELECT  LOISCRIMINATION  WHITE  LAYER  0  <CR> 

IF  (&TYPE.HO."C")  DISCRIMINATE  LAYER 

SELECT  LDISCRIMINATION  YHLLOW  LAYER  1.5  <CR> 

IF  (8.TYPE.E0.'«C")  DISCRIMINATE  LAYER 

SELECT  LDISCRIMINATION  RED  LAYER  2  <CR> 
lObllF  (ATYPE.EQ.«C")  DISCRIMINATE  LAYER 
I061SELHCT  MODE  DRAW 

io7!ECH()  Layer  exclude  2<x) 

lOd'ECHO  LAYER  EXCLUDE  205 

I OQ I  SELECT  LAYER  O 

I  101  <# 

I  M!<#  DEFINE  VIEWS 

112! <# 

II31DEF  VIEW   TOP  CPL   TOP   SCALE    1     IN   TO    fSCLJ    FT   TILT  90i    XIXORGIYI YORGJ <• 

n4!.X1Y8.b.X2IYIO<CR> 

115!3LANK  VIEW  NAME  'TOP' 

llolDEF  VIEW   LEFT  CPL  LEFT  SCALE    1    IN  TO   [SCLI    FTi    XI XORCIYI YOHCK* 
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117!  ,XIYd.tJ,X^iyio<Cri> 

lloinbF   VIEW    ISO  CPL    ISO  SCALE    I     IN   TO    [SCL+/]    FT«    X1IY6.Q<* 

11^!  .XIYI  ,XlJYcJ<CH> 

J2U!SEL  Cr-L  LEFT 

121  !  <# • 

>?2!<#  HHAW   SCALE 

I  231  <# " 

124!  IF    (OECEU.  !  )    GOTO   ENV 

I  <Jb!  <#♦♦****♦♦**♦*********♦■*•***♦**♦*******♦*♦** 

126!<#  GENERATE  SCALE 

12 7!  <#*****■**********♦♦****************♦******* 

l2d!#SCALE 

I 2y ! <# 

130! <#  INITIALIZE  VARIABLES 

131! <# 

132!SCHAD=DIAM/(SCL*2) 
I33!YSC=I I .0-SCUAn 
134!SCLOA»LOA/SCL 
135!INC=10/SCL 
136!YINC»YSC+. «2b 

13/!  <# ■ 

13b!<#  DHArt  HOHIZONTAL  SCALE  LINE 

1 39! <# 

140!  INSERT   LINE*    XI  XO.<G  J  Yt  YSC  J  .XI  XOHG+SCLOA]  Y(  YSCJ 
I4i  !()ISC    ENT   ClA-Wi    KEl) 

I  42! <» 

143!<#  DRAW    SCALE    MARKINGS 

I  44  I  <# 

l4bIXINC=X0HG 

1 46! REHEAT 

14/!   INS  LIN:  X[ X INCl Y[ YINCl^XI XINC lYC YSCl 

14b!   XINC»XINC+INC 

I4Q!   XDIF=XINC-XOHG 

lbO!UNTIL  (XDIF.GT.SCLOA) 

151 ! <# 

lb2!<#  LABEL  SCALE 

1 53 ! <# 

I54!ILBL=10 

155!XINC=XORG 

156!X0FF=. I 

l57!YLBL«YSC-.2 

I  5a! INS   TEXT    "FP"    HGT.I25«    X[ XORG-. 1 25  J Y[ YLBL J <CR> 

1 59 ! <# 

160! <*  OEfERMINH  LABEL  INCREMENT 

161! <# 

162! IF  (SCL.LT.24)  GOTO  DRLBL 

I63!#LHL2 

lo4IILHL«20 

165! INC»2*1NC 

166! GOTO  UHLBL 

I6/!#DRLBL 

16blXINC=»XlNC+lNC 

l69!LbL»ILaL 

1701&LBL-ILHL 

I  /IIHEHEAT 

1721   IF  (LBL.GE. 100)  X0FF«.I30 

173!   XLBL-XINC-XOFF 

174!   INS  TEXT  [ALBLJ  HGT. 125i  Xt XLHLlYrYLBLJ<CH> 

175!   LBL«LHL*ILBL 

I  /6!   4LBL-L3L 
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17/!   XlNC=XlNC+iNC 

I7d!       XI)IF  =  XiNC-X()WG 

I  /Q'UNTIL    (XDIF.GT.SCLOA) 

I  «0  !  <# — 

101  !<#   DHAW    ENTHANCE    AND   WUN    MARKEHii 

I  d2 !  <# ■ 

1U3!SCLF=LF/SCL 
ia4!SCLA=LA/SCL 


105 
106 
10/ 
100 

low 
lyu 

IQ\ 
\<42 
1Q3 
1Q4 
\^5 

m? 

WO 

tug 

201 
202 
203 
204 
205 
206 
20/ 
?.Oti 
20  g 
210 
211 


XLKaXOHG+iCLF 

XLA=X()HG+SCLA 

iNaHHT   LINE  I    X[XLFJY[YSC),XIXLF]Y[YSC+. 10 /5J , X[ XLF-. 3  751 <CH> 

INSERT   LINE«    X(XLAJYrYSCJ,X(XLA]Y(YSC+.IO/5],XtXLA+.3/5J<CH> 

<#  OKAW  VEHTICAL  SCALE 

<# 

XViiC=X()HG-.b7b 

IfJSEm    LINE*     XCXVSC]Y[Y()RG-SCHAl)].XrXVSC]Y[Y()HG+SCWAn]<CR> 

<# 

<#    nWAW    SCALE    MARKINGS 

<# ■ — ■ 

YINC=Y01?G 
1NC=5/SCL 
REPEAT 

INSEMT  LiNEt  XTXVsr] Yf YiNC) . 1 X. 1 25<CR> 

YINIC=YINC+InC 
UNTIL    (YINC.GT.YOHG+SCHAD) 
YINC=Y()HG 
REHEAT 

INSFirr   LINE  I    XrXVSC]YrYlNCl.IX.  I25<CR> 

YINC=YINC-INC 
UNTIL    (YiNC.Li .YORG-SCRAD) 

K-y — — _-._-._-. _ — 

<#  LABEL  VERTICAL  SCALE 

<# 

XLHL=»XVSC-.0/5 


2l2!YlNC=Y()RG-.0625 

213!INC=I0/SCL 

214! INSERT  TEXT  "CL"  HGT. 125  HJT»  X( XLBL] Y[ YINCJ <CH> 

2I5!ILHL«IU 

2 1 6 ! IF ( SCL. LT. 24 )  GOTO  DRVLB 

21 7!ILHL=2o 

210! INC=2*iNC 

2ig!#0RVLB 

220!YLBL=YINC+INC 

22I!LBL=ILBL 

2?2!&LBL=LBL 

?23!ReHEA: 

224!       INSERT  TEXT    l&LBLJ    HGT. 125   HJT»    X( XLBL) YI YLBLJ  <CH> 

225!      YLBL»YL3L*1NC 

226!      LBL=LBL*ILBL 

2^11      &LBL=LBL 

220!UNTIL    (YLBL.GT.Y()RG*SCRAD) 

22g!YLBL«YINC-INC 

230!LHL»ILBL 

23II&LBL»ILHL 

232! REHEAT 

233!       INSERT  TEXT    I&LBLJ    HGT. 125   RJT«    XI XLBL] Yt YLBL]<CH> 

2341      YLBL-YLBL-INC 

235!      LHL-LflL+ILflL 

236!      &LBL-LBL 
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23/! UNTIL    (yLBL.LT.Y0HG-SCWAD-.U625) 

23d !  <» ■ 

?3Q!<v»  (WAi\    ENVELOPE 

<i40 !  <• ■ ■ 

24  1  !#tNV 

242!SLLECT  mode  MODEL 

243!iiELECT  LAYER  I 

244! IN5  LiNi  XOYO, X[ LOAJYU 

245!I=J 

24o!TC;=l 

24  / !  &TG=»TG 

24b!INi>EWT   hiJPLlNE    INTH   TAG=[&TGJt<# 

24q!#NEXr  X(X(UJY[Y(U].<# 

250! 1=1+1 

25I!IF    (I.LE.I32)    GOTO  NEXT 

2b2!<CH> 

2^3!  INSEHT  SHEV  HIANG  300    MEbH  dXtl«  TAG  [  &TG]  ;  XOYU.  X[  LOAl  YU<CH> 

2'j4  !  <0 ■ 

26b!<#  DISPLAY  PHINCIPAL  CHARACTEH ISTICS 

256 ! <# 

257!SELECT   MOOE   t)RAW 

25d!SELECT   LAYER   0 

25W! INSERT   TEXT    [ANAMEl    HGT.25«    X14.bYl<CR> 

260! SELECT   LAYER    iQ^ 

26I!lNbERT   TEXT    l^LOAJ    HGT.18/5    RJT«    X20.25Y5.25<CR> 


262 
263 
264 
265 
266 
26/ 
26U 
2^9 
2/0 


INSERT  TEXT    fiDlA/vl)    HGT.Id/5   RJT«    X20.25Y4.q3 /5<CR> 

INSERT   TEXT    [ALFJ    HGf.  Id75    R.JTi    X20.25Y4.625<CR> 

INSERT   TEXT    [&LAJ    riGT.Ib75   RJT«    X20.25Y4.3I25<CR> 

INSERT  TEXT    [ALCBSbJ    HGT. Id75    RJT»    X20.25Y4<CR> 

IN;jERT   TEXT    [ADSUBJ    HGT.lM/5    RJT«    X20.25Y3.6rt75<CR> 

INSERT  TEXT    [<iDENV]    HGT.ld/5    RJT«    X20.25Y3.3 /5<CR> 

<*U> 

#FN|) 

RUN   NEW    MIT.PHULL 


27I!EN1) 


60 


MlT«&HCt).HHUlJ. 
b-lb-d4    \.':>ft3l   HUTIL   0.21 


?l<if   MIT.PHULL 

4!<# 

5!<#   USED    ro  UtNERATE    PHtSSUHE   HULL   GEOMETHY 

6!<#        -DRAirJS    3n    rfEPHEJENTATlOM    OF   HULL    FOHM 

/!<#         -CALCULATES    ANIJ   DISPLAYS    HAHAMETEHS 

d!  <# 

ii  I  <#*«******  ***«*******'•****«'**«'********  *«** 

10 'DIM    AFf(20) ,FWD(20) ,PDA (20) ,FDF(20) ,LEN(20) ,VOL(20 ) ,XCB(20 ) 

It !DIM   TPE(20) 

I2!P1=3.  I4  15'J265 

t  3! <#****  A************************* 

14!  <#    oaiAirJ   DATA    F'«)M    PASS    FILES 

I  5! <^* *********** A******* ********** 

I6!()PENH    I  ."MIT.PASSPHI" 

iTlrttAOF    I ,^TYPE 

lb!l)lAM=<iTYHE 

lyiHbADF    I  .ATYPE 

2U!L0A=\TYPE 

21  !HEa;)F    I  ,&TYPE 

?2!LF=&TYPE 

23!REAI)F    I.^TYPE 

24!LA=ATYPE 

25!HFAI)F    I  ,<iTYPE 

26!HEAI)F    I  .ATYPE 

2/!HEAI)F    l.KTYPE 

2d!WEADF  I .ATYPE 

2QINF=4TYPE 

30!HEA0F  l.&TYPE 

31  !NA=&TyPE 

32!()PENH  2,"MiT.PASSPH2» 

33!HEAnF  2,&TYPc 

34!AWGHT«iTYPE 

35»HAD»niAM/2 

36JEXECV 

37JPWNT 

3d!PHNT 

3<i!PHNT 

40!4TYPE=ArtGHT 

4MPHNT    AWfclGHT=(4rYPE] 

42! AWGHT»(AlNT((AWGHT+.Ob)*IU))/lU 

43IHEAIJ    (NUMtiEH    OF   TONS    OF   AWtlUHT   TO   UE    HtSbHVED    IS    — >    >    &TYPE 

44!HES=ATYPE 

4b !  TViiGHT=AWGHT-WES 

46!rVOL»TWCHl*3b 

47!HES=.VES*3b 

4d!&WES»HtS 

4V !  <  # 

bOI<#    UPDATE    SUMMAWY 

52I<*U> 

53 'SELECT  MODE  DHAW 
i)4!BLANK  VIEW  NAME  'ISO'' 
.55! ECHO  LAYEH  INCLUDE  200 
bo! SELECT  LAYEH  2U0 


b7 
5a 
5^ 
60 
61 
02 
63 
64 
65 
60 
6/ 
6ii 

6y 
/(J 

71 

r^ 

73 
/4 
75 
76 
77 
7a 

dO 
di 
62 
a3 
b4 
ab 
86 
07 
aa 
ag 
go 
wi 
^2 
^3 

44 
45 
46 
4/ 

4a 

44 
100 
JOI 
\02 
103 
104 
105 
106 
107 


(TVOLJ    HGT.ia/5    WJT«    X2().25Yb<CH> 
"U"   HGT.1b7D    HJT«    X20. 25Y7.6b7b<CH> 
[TVOLJ    HGT.ia/b    HJT«     X20.25Y /.3 /5<CK> 
CHEiJ]    HGT.ia75    HJT«    X20. 25Y7.0725<CH> 
"O"    HOT.  I  a /5    HJT«    X20.,i5Y6. /5<CH> 


ATVOL'TVOL 
INStHT  TEXT 
iNbHHT  TEXT 
iNbhHT  TEXT 
INSERT  TEXT 
INSEHT   TEXT 

<#  SELECT   LAYEH   AND   TAG 

SELECT    MC)r)E   MODEL 

SELECT  CPL   LEFT 

SELECT   LAYEH   2    <CH> 

<*U> 

TG=1I 

#SEG 

ERH1=0 

EHH2=0 

&TG=TG 

1TG=TG-10 

<#**♦«*■**♦*■»*♦*********♦*♦*♦♦*** 

<w    MAIN    MENU 

<^***  Hit  ******  *■»*******  ********** 

EXECV 

#MENU I 

PHNT 

SELECT  R)HM   OF  PHESSUHE   HULL  SEGMENT 
I-CYLINDEH  2-CONiCAL    SEGMENT 

4-SHHEHlCAL   CLOSUHE   5-ELLIPTICAL   CLOSURE 
(7-ObTAlN   DIAMETER        E-EDlT 
GOSUB   CYLiN 
GOSUH   CONE 
G0SU15   PLATE 
GOSUB   SPHl 
GOSUB   ELL  IP 
GOSUH   SON AH 
GOSUB   GETH 
GOSUB 'STP 
GOH'JS   EDIT 


PHNf 

PkNT 

PHNT 

HEAD 

IF  (ATYPE.EO."!") 
(XTYPE.EO."?^') 
(ATYPE.EU.»3") 
(XTYPE.  to.  "4») 
(*TYPE.EQ."5") 
eiTYPE.EO.  "d") 
(<tTYPE.EQ.»/") 
(ATYPE.EQ."X") 
(*TYPE.EO."E") 


3-FLaT  PLaTF  CLOSURE 
6-SONAR  AND  ACCESS 
X-LEAVE       —>)  ATYPE 


IK 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
<# 
IF 
IF 


(ATYPE.EQ. "7»)  GOTO  MENUl 
</lTYPE.EQ."rt")  GOTO  SEGI 

TPE(ITG)»ATYPE 

G0SU9    UPDATE 

■♦SEGI 

TG=TG+ I 

GOTO   SEC 

#STP 

GOfO   END 

<M****** *************  *********** 

<0   SPHEHICAL  SEGMENT  OF   ONE   BASE 
<ji****  ********  ****************** 


I0ai/»SPHI 

104! PHNT 

IIOIPHNT 

I.MiPRNT 

U 2! PHNT 

I  13! HEAD 

II4!IF 

II5MF 


SPHEHICAL  ENDCLOSUHE 
CHOOSE   MFTHCM)   OF    INPUT* 
(l-INPUr    ENDPOINTS   2-CALCULATE 

(&TYPE.EO. "2")  GOTO  CALPT 

(ATYPE.NE."I*»)  GOTO  SPHl 


ENDPOINTS  FROM  VOLUME-->  )  &TYPE 


1161 EXECV 
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I lOiPkNT 

1  |9!HtAD 

12U!KEAI) 

121 !HEAU 

»;>2!HEAn 

l23!FWD(irG) 

124 

I  ^'3 

126 

127 

12d 

12^ 

130 

131 

132 

133 


li'iPUT   ENDPOINTS 

(FOHWARD   MOST   POINT   OF   SEGMENT    IS    —>  )  &FWr) 

(AFT   MOST   POINT   OF   SEGMENT    15  — >  )  &AFT 

OF  FortWAHD   MOST   POINT    IS— >  )  APDF 

OF   AFT    MOST   POINT    IS  — >  )  &PI)A 


(DIAMETER 
(niAMtTER 
^FWO 


134 
135 
136 
13/ 
130 
139 
140 
141 
142 
143 
144 
14b 
146 
147 
14d 
149 
liJO 
151 
Jb2 
153 
154 
155 
156 
157 
15a 
159 
160 
161 


AFT{ITG)=.ftAFT 

P!)F(ITG>=v'<,PnF 

PnA(ITG)=ApnA 

LFN(ITG)=AFT(ITG)-FWl)(ITG) 

GOSUB  CHECK 

IF  (ERRI.E0.1 .0H.EHH2.E0. 1)  GOTO  SPI 

GoSUb  SPSET 

GOTO  SPOHA 

<0 ——.__-.—.—.—.—.-.___— ___-._ 

<#  CALCULATE  POINTS  FROM  GIVEN  VOLUME 


<# 

#CALPT 

EXECV 

P.-cNT  CALCULArE 

REAO  (WEOUlHtn 

HEAD  (LOCATION 

HEAD  (niAMETEH 

VOLUME=iVOL 

LOC=ALoC 

<0 

<#  DETERMINE  ORIENTATION 
<# 

IF 
IF 
IF 
IF 


ENUPOINTS  FROM  VOLUME 
VOLUME  OF  SEGMENT  IS  ~> 
OF  SEGMENT  BASE  IS    — > 
OF  SEGMENT  BASE  IS    — > 


)  &VOL 
)  *LOC 

)  &pnF 


pnF(irc)=o 

PI)A(  ITJ)=iiPnF 

PDA(iTG)=0 

PnF(ITG)»&PDF 


»PDA(irG)/2 
«PnF(ITG)/2 


(LOC.LT. (LOA/2)) 
(L0C.LT.(L0A/2)) 
(LOC.GT. (LOA/2)) 
(L0C.GT.(L0A/2)) 

<»   CALCULATE  LENGTH  OF  SEGMENT 

<# 

IF  (PDFdTO.EQ.O)  R 

IF  (PnA(  ITO.EO.O)  H 

A«3*(R**2) 

B«6*V0LUME/PI 

SQR»S0RT((H**2)/4+(A**3)/2/) 

AA=(B/2+SQH)*«( 1/3) 

BA=B/2-S0h 

IF  (RA.Lr.O)  BC=-BA 

IF    (HA.LT.O)    RR«-(HC**( 1/3)) 
1621  IF    (BA.GT.O)    BB=BA**(l/3) 
163!LEN(ITG)  =  AA-HiH 
I64!IF    (PDF(ITU).EQ.O) 
165!  IF    (PI)F(ITG).EQ.O) 
166IIF    (Pl)A(ITn).EQ.O) 
1671IF    (PDA(  ITO.EO.O) 
l6blG0SUH   CHECK 

169!  IF    (ERRl  .EQ.I  .{)fl.ERR2.EQ.2)    GOTO   CALPf 
I70!G0SJB   SPSET 
1  n  !G()TO   SPDRA 

1 731<#   DRAW   SECaENT 

I  74! <# 

175!#SPl)RA 
I  /6I<*U> 


Fm  (  ITG ) =LOC-LEN  (  ITG ) 
AFT(ITG)=LOC 
FtNn(ITG)»L()C 
AFT(ITG)»LOC+LEN( ITG) 
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ARC   TAG=(&rt;]« 
bHEV   HlANG=lbO 


X[XUY[YM,X[X2]yu,X[XI  JY[-YI  J<CH> 
MfcSsH    bXO    «    TAGtATGl;XUYO,X[L()AJYU<CH> 


I  7/! INSERT 
I  /dJiNstHT 
1  /91<''U> 

I  dO  !  <# = 

lai !<#CALCULATE  HROPFRTlEb 

ld^!<# 

ld3!bHAl)=(PI)**2)/(d*LtN(  nG))+LEN(  lTG)/2 

I CJ4  !  V()L<  ii:;)  =  (  LEN  <  ITG)  ♦♦2)  ♦Pi*  (  3*SrtAD-LhN  ( ITG  )  )/3 

ltt5!CH=SlMii-.  o«(  (2«S«Ai;-Lci>.(  ITG  ) )  "2  )/(  3*SriAn-LEN  (  ITG)) 

166!  IF    (PL)F(ITG).EQ.O)    XC3<  ITG)  =  FWD(  ITG)+CB 

Id/!  IK    (r>I)A(ITG).EQ.O)    XCH  (  ITG)=AHT(  ITG) -CH 

lbd!RTNi)UH 

I  d^ !  <# — 

iyu!<*  iiET   UP   C(X)H()INATES    FOR    PLOTTING 
|g|  !  <» , — .— — 


1^2 
I  ^^3 
1^4 
l^b 
1^6 
WV 
Wd 
I  W 
^00 
201 
202 
203 
204 
205 
206 
20/ 
20a 

2oy 

210 
21  I 
212 
2)3 
214 

2113 

216 

21  / 

2ld{ 

2IQ! 

2^01 

221! 

:>22l 

?23l 

224! 

2251 

226! 

22/! 

220! 

2291 

230! 

231! 

232! 

233! 

234! 

235! 

236! 


PD=PUA(1TG) 
X1=AFT( ITG) 
X2=FttU(iTG) 
YI=PI)A(ITG)/2 
PI)=PI)F(ITG) 
X1=FW()(  ITG) 
X2=AFT( ITG) 
Yl=-P3F(iTG)/2 


CONICAL   SEGMENT 

(FORWARD    MOST   Pf)lNT   OF   SEGMENT    IS    — > 
(AFT   MOST  POINT   OF   .:iEGMENT    lb  — > 

AT   FORWARl   MOST    POINT    IS — > 
AT   AFf    MOiT   POINT    lb  — > 


AFWD 
&AFT 
iPOF 

&pnA 


r'bPStT 

IF  (PJF(irG).EQ.O) 

IF  (Pf)F(  ITO.EQ.O) 

IF  (P;)F(  lTG).EQ.O> 

IF  (PnF(ITG).EQ.O) 

IF  (POA(ITG).EQ.O) 

IF  (P!)A(  rrG).EQ.O) 

IF  (PDA(ITG).EQ.O) 

IF  (PUA(rrG).t(3.0) 
RINbUH 

<w   CONICAL  bEGMENT 

</y  *******  *********************** 

*CONE 

PHNT 

PR  NT 

PRNT 

REAL) 

READ 

REAL)  (DIAMETER 

READ  (DIAMETER 

FrtU(  ITG)»\FWf) 

AFT( ITJ)»4AFT 

PI)F(  ITG)=&PDF 

PDA( ITG)=&PDA 

LtN(ITG)aAFT( ITG)-FWD( ITG) 

GOSUa  CHECK 

IF  (ERR1.EQ.1.0R.ERR2.EQ. 1 )  GOTO  CONE 

<# 

<#  DRArt  a)NlCAL  bEGMENT 

<0 

X1=FWD(1TG) 

X2«AFT(ITG) 

Yl»PUF(iTG)/2 

Y2«POA(lTG)/2 

<''U> 

iNbERT  LINE  TAG«f4TGl«  X[ XI  I Yt YII .X( X2 J YI Y2 J <CR> 

INSERT  SREV  H1ANG»360  MEbH  dXb  i  TACrTGHX0Y0.X[LOA]Y0<CR> 

<-u> 

<#  CALCULATE  CONICAL  PROPERTIES 

<# 

V()L(  ITG)»LEN  ( ITG ) ♦PI  ♦  (PDF ( ITG)  ♦♦2+PDA  ( ITG)  ♦♦2+PDF(  ITG)  ♦PDA  ( ITG  ) )/  I  2 
IF  <PDA( ITG).LT.PDF( ITG))  GOTO  CONB 
nt -PDA (ITG) 
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23ci!G()rt)   CONC 

^40!ni=PI)F(  ITG) 
?A\  in2=t".)Al  ITG) 
?A?HfC.UHC 


P43 
?44 

<i45 

;>4o 

^4/ 
24d 

24y 

250 
2ol 
252 
2b3 
254 
25b 
256 
25/ 
25d 
254 
2oU 
261 
202 
263 
264 
265 
266 
267 

2oQ 
2  to 
271 


CB»LhN(  1  rG)*(t)I**2+2*ni«n2+3*n2**2)/((ni  ♦•2+ni*n2+n2**2)*4) 
IF    (HI)A(  ITG).(7r.PI)F{  ITG))     XCB(  ITG)  =AFT(  ITC;)-C» 
IF    (HnF<  irG).CJE.PDA(  ITG))     XC3(  ITG)»FWD(  1  rG)+CB 

<!!**«**'**'*'*'*'*****'**«"************* 

<0    CYLINONICAI.  SEGMENT 
<#****************:^*****'**  ****** 

»CYL1N 

PHNT 

FHNT 

PHNT  CYLINOHICAL  SEGMENT 

HEAD    (FORrtAWf)    MOST    POINT   OF   SEGMENT    IS      —>    )    'iFWD 

HEAD    (AFT    MOST    POINT      OF  THIS   SEGMtNT    IS  — >    >    &AFr 

HEAO    (DlAMETFW    OF   CYLIND^^ICAL   SEGMENT    IS~>    )    &POA 


GOTO  CYLIN 


(DlAMETFW  OF  CYLIND^^IC^ 
FWn(ITG)=AFrtn 
AFT(ITG)=AAFT 
PDF(  irG)=APl)A 
PDAC  ITG)=PI)F(  ITG) 
LEN( ITG)=AFT( 1TG)-FWD( ITG) 
GOSJB  CHECK 
IF  (ERHl .EQ.l .0H.EHH2.EQ.1  ) 

<w    DHAW  CYLINHKU 

<# 

^)«CYL 

<''U> 

INS   LIN   TAG=[&TGJi    XtFrtn{ITG>]YlPr)F(ITG)/2]<# 

.X[AFT(1TG))YI P0A(1TG)/2J<CM> 

INSEHT  SHEV  HIANG  36U  MESH  aXI6  «  TAGI&TGJ IXOYU.XI LOAl YO<CH> 
2/2!<*U> 

2/3! <# 

2/4!<#  CALCULATE    HHOPl-HTIES 

2/5!<# 

276!VOL(  ITG)=LEN(  ITG)*PI*  (  PI)F(  ITG)**2)/4 

2  //! XCB( ITC)»FWU(ITG)+LhN ( lTG)/2 

2/a!HTNSUH    ^ 

2  /*^ !  <#*********************«******** 

2U0!<#    ELLIPTICAL   ENO   CLOSURE 

2ti\  !  <#****-*'*'•**«*******«*•********** 

2b2! #ELL1H 

2ti3!PHNT 

2a4!HkNr 

2db!P»NT 

2d6!HEAD 

207!HEAU 

2bd!HEAl) 

2a«i!HEAD 

2yu!Frtl)(ITG) 

2'*I!AFT(  ITG) 


ELLIPTICAL  END  CLOSUHE 
(FOHWArtD   MOST   POINT   OF   SEGMENT 
(AFT   MOST  POINT  OF  SEGMENT    IS 

OF  FOHWAHD  MOST  POINT 
OF  AFT  MOST  POINT  IS 


(DIAMETEH 
(DiAMETEk 
XFMO 

AAR" 


IS  — > 

) 

AFWD 

— > 

) 

&AFT 

IS— > 

) 

&PDF 

— > 

) 

&PDA 

242JPnF(ITG)»&PI)F 

293! PDA ( ITG )»A PDA 

2«41LEN( ITC)»AFT{ ITC)-FWD( ITG) 

2y5!GOSUb   CHECK 

2<^6!IF    (ERWI.£Q.I.0k.EHH2.EQ.  I) 


GOTO   ELL IP 
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2<^  / !  <# ■ 

?.^til<*  SET   UW    POINTS   Fi)U    PLOTTING 

3 IX) 
301 
302 
3U3 
304 
3U6 
306 
30/ 
3Ud 

luy 

310 

311 

312 

313 

314 

31b 

310 

31  / 

31b 

3IQ 

320 

321 

322 

323 

324 

32^ 

3AC, 

32/ 

12C 

32Q 

33u 

331 

332 

3331PHNT 

334!PHNr    FLAT   PLATE    END   CLOSURE 

33d!HEAI)    (L{)CATIf)N    OF  FLAT   PLATE   CLOSURE    IS    —>    )    AFwO 

336!WtA0    (DlAMETEH   OF   FLfl"   PLATE   CLOSIJWE    IS    — >    )    -^PDF 

33/!Frtl){  ITU)=AFrtl) 

33b!AFT(IiJ)»AFWi) 

33y!PnF(  ITG)=&PI1F 

340!P[)A(ITG)=<iPDF 

34  1  !LtN(ITG)=a 

342!V0L(ITG)=O 

343!XCb(irG)=AFWD 

344!GOSUH   CHECK 

345!  IF    (ERHI.EQ.I,()rt.EHH2.EQ.  I  )    GOTO   PLATE 

340 ! <# 

34/!<#   DHAW    FLAT    PLATE    END   CLOSURE 

34b ! <# 

34V»!XI«FWD(ITC) 

350|Y2»PnF(ITG)/2 

35I!<*U> 

3b2!  INSERT  LINE  TAG»rATGH  X[  XI  lYO  »X[Xl  ]Y[Y2  ]<CH> 

3b3! INSERT  SREV  HlANG»300  MESH  bXbi  TAGITG] IXOYU.XI LOA] YO<CH> 

354|<''U> 

35b!RTNSUH 

350!  <0***ir ****** ******■»■»** ********** 


IF  (P;)F(ITG).EO.U)  XI=FW)<ITG) 

IF  (P[)F(irG>.EQ.O)  X2»FWD(iTG) 

IF  (PnF(  ITO.EQ.O)  Y2=P()A(  ITG)/2 

IF  (PI)F(ITG).EQ.O)  X3=AFT(iTG) 

IF  (PnA(  ITO.EQ.O)  XI=AFT(ITG) 

IF  (PnA(ITG)e£Q.U)  X2=AFT(ITG) 

IF  (PUA(  irG).EQ.O)  Y2=r'l)F(ITG)/2 

IF  (?DA(  ITO.EQ.O)  X3=Fwn(iTG) 

Y3=Y2 

X4=(X1+X3)/? 

IF  (PI)F(ITG).hQ.O)  XX  =  X4-XI 

IF  (PnA(  ITO.EQ.O)  XX=XI-X4 

Y4=S0RT((Y2**2)*( I -( XX**2)/ (LEN ( ITG)**2>)) 

<# 

</»  DRA^  ELLIPTICAL  EMO  CLOSURE 

<0 

<''U> 

INSERT  CONIC   TAG=f&TGJ«    X[ X  I] YU. XI X2 J Yt Y2 J , X[ X3 J Yf Y3 ] ,X[X4 ]Y[Y4 J <CR> 

INSERT   SREV   HlANG=360    MESH=bXe;    t    TAGI  &TG] »  XUYU.  X[  LOA  1  YU<CR> 

<''U> 

<»- ~ — — —————— — . 

<#  CALCULATE  ELLIPTICAL  PROPERTIES 

VOL( ITC)=(PI/o)*LEN( ITG)*((2*Y2))**2 

Cb=.3/'j*LEN(ITG) 

IF    (PI)F(  ITO.EQ.O)    XCB(ITG)=AFT(ITG)-CB 

IF    (POA(  ITO.EQ.O)    XCb(ITG)«FrtD(ITO+CB 

HTNSUH 

<#  ****************************** 

<»   FLAT  PLATE  CLOSURE 
<■{(****************************** 

#PLaTE 
PRfil" 
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35IK0    SONAH    DOME    HOUTINE 


35d 

360 
30 1 
36-.; 
363 
364 
365 
366 
36/ 
36d 
36s» 
3  to 
3/1 
3/2 
3/3 
374 
37b 
3/6 
3  77 
3/0 
374 
3U0 
3UI 
332 
3b  3 
3a4 
3d5 
3»o 
3d/ 
3ad 
3dy 
3yi) 

34  1 
34  2 
3^3 
344 
34 1> 
346 
347 


<lt  ********  ***********  It -H-k*-*  ****** 

#b()NAW 

FH.Mf 

PHNT 

HHNT 

PWNT    dONArt   SPHtHE 

HEAD    (OlAMhTEH    OH   SONAH    SPHHHE    ~>    )    &SDIAM 

WEAn    (OlAMbTEH    OF   ACCESS   TrfUNK    — >    )    4PDA 

HEAD    (CENTER    OF    SONAH    SPMEHE         —>    )    &CEN 

SDIAM=*SD1AM 

m"HNK=/lPnA 

ChN=ACEN 

SHA0=sniAM/2 

SUa.5*S0HT(SDlAM**2-DTHNK**2) 

SH=iHAn-Sn 

XL=«CEN 

<0 

<#  SET   UP   POINTS    AND   PLOT 

<  0 — 

Xl=CEN+S() 

X2=CLN-SHAr) 

Yl=nTHNK/2 

FWD(ITG)=X2 

AFT(1TG)»XI 

PDF{ITC;)=0 

pnA<  I  rc;)=ApnA 

LEN( ITG)=AFT( ITG)-FWn( ITG) 

<*U> 

iNStHT    AHC   TAG=l&TGJi    XtX I  J Y[ Yl ] .X[ X2] YO. XI XI  J Yl-Y I J<CH> 

INSERT   SHtV   HlANG=ldO    MESHoXd    t    TAGf iTG] » XOYO. XCLOA ]YO<CR> 

<*U> 

<#   CALCULATE   PROPERTIES 

<i* 

VSPH-4*PI«(SRAD**3)/3 

VSEG=(PI/3)*(SH**2)*(3*SHAD-SH) 

V()L(iTU)aVSPH-VSEG 

CHseG»CEN+.  7t>*  ( {  2*SHAD-LRN  (  ITG ) )  **2 )  /(  3*3RAD-LEN  ( ITG ) ) 

XCB(ITG)={VSPH*CEN-V5EG*CUSEG)/V0L(ITC) 

IF  (nTRNK.eO.U)  HTNSUH 

(DTRNK.NE.U)  GOSUJ  UPDATE 


34dIIF 

344 ! <# 

4U0!<#  CONSTRUCT  ACCESS  TRUNK 

401 • <# 

4U2!&AFr»AFT(rrG) 

4U3!EXECV 

404SPRNT 

406! PR NT 

406! PHNT  THE  AFT  MOST  POINT  OF 

4U7!READ  (  AFT  MOST  END  OF  THE 

40d!TG"rG+l 

4U4 I &TG«TG 

410!lTG«rG-10 

4U  !TPE(ITG)»3 

4l2!FWn<ITG)»XI 

4I3!AFT(ITG)»/IAFT 

414! PDF ( ITU) -PDA ( ITG- 1 ) 

4l5lPDA(rrG)«PnF(ITG) 

4I6!LEN( ITG)»AFT( ITG)-FWD{ ITG) 


THE   SONAH   SPHERE    IS    LfXTATED   AT   t&AFTl 
ACCESS   TRUNK  HILL   BE   LOCATED   AT   — >    )    4AFT 
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4  1  /'GObUH    DHCYL 

41d!HlNSU!J 

4  \Qi  K^***  **■»***■»*  a**  ************  ********** 

42U!<i»    UPDATE    bTATUb    AND   DISPLAY    VAH1A8LHS 

421  *<#********'*•********•***'*********•••** 

4,?2!#UPDATE 

423!<*U> 

424JSELECT  M(X)E  DHAW 

425!ShLECT   LAYtrt    200 

426  i<S ■ ■ ~ 

42/l<#  UPDATR  SEGMENT  SUMMARY 


420 
429 
43U 
43> 
432 
433 
434 
435 
436 
43/ 
43U 
439 
440 
441 
442 
443 
444 


<# . . — — 

YL(X:3U-.3l2b*ITU 

<# • 

<#  HOUND  OFF  NUMBEHS 

<# 

f^Dl  ITG)='AINT((FWD<  ITO  +  .'Jb  )♦  I'J  ) )/ 10 
A  F  M  i  1 G )  =  ( A  i  NT ( ( A  FT ( 1 TG )  + . Ob ) ♦ I O  ) ) / 1 0 
PDF( ITG)=(AIN1  ((PDF( ITG)  +  .  Ob )• JO  )  )/IO 
Pl)A(  ITG)  =  (AINT  ((PDA(ITG)  +  .05)*I0))/10 
y()L{  ITG)  =  (AI^IT((V()L(ITG)  +  .05)*10))/I0 
XCH(ITG)  =  (AlNT<(XCH(ITG)  +  .t)5)*IO))/|0 
.^FWQaFWDdTG) 


IAAFT=aFT(ITG) 
!(!iOFrtn=FOF(lTG) 
!&UAFT=PDA(  ITG) 
l&V()L»V()L(ITG) 
!&XCH=XCB(ITC) 

445! INSEHT  TEXT 

446 

447 

44a 

449 
450 
43  I 
452 
453 


(dlFWDJ  HGT.  Id/5  HJT« 
CAAFTl  HGT. 18/5  HJT« 
[&()FWD]  HGT.  I  a /5  HJT» 
t&nAFT]  HGT. I  a /5  HJTi 
(&VOL]  HGT. «87b  HJT« 
[AXCai  HGT. IB75  RJTi 


INSERT  TEXT 
INSERT  TEXT 
INSERT  TEXT 
INSERT  TEXT 
INSERT  TEXT 
<# 

<#  UPDATE  DESIGN  SUMMARY 

<# 

454 ! PV0L»PV0L+ ( A I  NT  <  VOL  < ITG )• 1 0 ) ) / 10 

455!ieV0L=TV0L-PV()L 

456!  IF  (HVOL.LT.t))  NFLG»I 

45/! IF  (NFLG.EO.I)  RVOL=ABS( RVOL) 

45a!&PVOL»PVOL 

459!^RVOL=RVOL 

4oO!M()MENT=MOMENT+VOL{  ITG)*XCH(  ITG) 

461 !LCd«MOMENr/PVOL 

462!LCH»(AINT{(LCB+.05)*IO))/JO 

463! IF  (TPE(ITG).HQ.5)  RTNSUB 

464!^LCH=LCB 

465!DELETE   ENTITY*    X?0. 25Y7.6d /b<CR> 

466!  INSERT  TEXT    f&PVOLJ    HGr.ia/5    RJT« 

46y!DELHTE   ENTITY«    X20.25Y7. 373<CH> 

46ai INSERT  TEXT    (ARVOLJ    HGT.fd/5    RJT« 

469! IF    (NFLC.EQ. U    ECHO   LAYER    INCLUDE 

4/01  IF    (NFLG.EO.CJ)    ECHO   LAYER   EXCLUDE 

4/l!l>ELhTE   tNTITYt    X20.  25Y6.  75<CH> 

4/2! INSERT  TEXT    t&LCBl    HGT.ld/5   RJT« 

4/3! IF    (NFLG.EO. I)    RVOL«-RVoL 

4/4! IF    (NFLG.EQ. I)    NFLG=0 

4/5! SELECT  MODE   MODEL 

4  70  I SELECT   LAYER    2 


X3.30Y[YL0C1<CR> 
X5.30Y[YLOC]<CR> 
X/.30Y[YL0C]<CR> 
X9.30Y[YL0C3<CH> 
XI  l.5Y(YL(X:]<CR> 
Xl3.3YtYLOC]<CH> 


X20.25Y7.6d75<CR> 

X20.25Y7.3/5<CR> 

205 

205 

X20.25Y6. /5<CR> 
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4  //!<*U> 
4 /d! WTNSUB 

4  /W  !  <#**i^*  *•********'**'*****'**  ******* 
4dO!<#  HHESSlWt  HULL  EDIT  SUJHOHTJrJfi 
4dl I <#**•*•******************•****«* 
4o2!*/tL)IT 

4 J3 1  <# 

4d4!<#  DELETE   PHESSUHE    HULL   SEGMENT 

4d5!  <# — 

4dA !  Pi.'  NT 

4d/!P»NT 

4dd!PHNT 

4ag!HEAI)    (SEGMENT  TO   BE   DELETED    IS    -->)    S,ITG 

4gO!MAXTG=To 

4gi  •iTG=4rrG 

4g^!TG=iTG+IO 

4g3!ATG=TG 

4^4!  <''U> 

4g5!DELtTt   ENTITY*    TAG[ArGJ<CH> 

4go!XnEL=<h'H|)(  ITG)-»-AFT«  ITG))/2 

4g/!YDEL=5 

4gd!nELETE  ENTITY*  XI XDELIYt YUEL J<CH> 

4gg!HhHAlNT 

500! SELECT  MODE  OHAW 

501 ! SELECT  LAYEH  200 

502!YL0C=d-.3l25*ITG 

5U3![)ELETE   ENTITY*    X3.30Yf  YL()C)<CH> 

504!JELEi'E  ENTITY*  X5.30YI  YLOC]  <CH> 

505!l)ELbTE   ENTITY*    X7.30YI  YLOC  J  <CH> 

506!DELFrE   ENTITY*    X9.30Y[ YLOC J <C«> 

50?II)tLETt   ENTITY*    X  M  .3YI  YLOC]  <CH> 

50d!  DELETE   ENTITY*    X  I  3.3Y(  YLOCJ  <Ct<> 

5og !  <-■* 

510!  <>*  UPDATE  SU'^MAWlEb 

5  11! <# 

512! PV0L=PV0L-VnL ( ITG) 
513!tiVOL«TV()L-HV()L 

5U!II-  (WVOL.LT.O)  NFLG=I 

515!  IF  (NFLG.EQ.  I)  HV()L=ABS(KV()L) 

5I6!&PV0L=PV()L 

51  /lAHVoLsrlVOL 

5  I  d  !  MOMENT=MOMENT-V()L  ( ITG )  "XCH  ( I  TO ) 

5ig!LCB=M0MENT/PV()L 

520!LCB=<A1NT((LCB+.()5)*I0))/10 

52I!&LCH»LCB 

522!DELErE   ENTITY*    X20. 25Y /.6d /5<CH> 

b23!lNbEHT   TEXT    l&PVOLJ    HGT.Id/5    HJT*    X20.25Y7.6a75<CH> 

524!0ELETE   ENTITY*    X20.25Y /.3 /5<Crt> 

525!IN6EHT  TEXT    UHVOLJ    HGT.1tl/5    HJT*    X20.25Y7.3 /b<CW> 

526! IF    (NFLG.EQ. I)    tOHO   LAYEH    INCLUDE    205 

52/! IF    (NFLG.EQ. 0)    ECHO   LAYEH    EXCLUDE   205 

52B!DELETE   ENTITY*    X20.25Y6. 7b<CH> 

529!  INSEHT  TEXT    (ALCBJ    HGf.iaVS    RJT*    X20.25Y6. /5<CH> 

b30!IF   (NFLG.EQ.  I)    HV()L«-HVOL 

531! IF    (NFLG.EQ. I)    NFLG-0 

532!PDF(ITG)-0 

533! PDA ( ITG) »0 

534IFWD(ITG)«0 

535!AFT(ITG)»0 

536!V0L(ITG)«0 
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53/ 

b3b 
53'> 
b40 
541 
542 
d43 
544 
545 
546 
54/ 
540 

54g 

5bO 
551 
55? 
553 
554 
555 
556 
55/ 
55a 
55y 
560 
5ol 
50«i 
563 
564 
565 
566 
56/ 
bob 


XCB( ITG)=0 
LEN<  1T(J)=U 

<*  HEPLACE  DELETCD  SEGMENT 
<»< ■ 

SELECT  MODE  MODEL 
SELECT  LAYEH  2 

EXECV 

#MENU2 

PkNT 

SELECT  FOUM 

1 -CYLINDER 

4-SPHEHlCAL 


PHNT 

PKNT 

PHNT 

HEAD 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


OF  PHESSUHE  HULL  SEGMENT 

2-CONlCAL  SEGMENT     3-FLAT  PLATE  CLOSURE 
CLOSURE  5-ELLIPTICAL  CLOSURE  6-SONAR  AND  ACCESS  TRUNK 


( y-OHTAiN  DIAMETER 


R-RETURN 
CYLIN 
CONE 
PLATE 
SFHI 
ELLIP 
SONAR 
GETR 
STP 


MAIN  MENU 


X-LEAVE  —>)  &TYPE 


(&TYPE.EQ.  "1 ")  UOSUH 

(ArYPE.EQ."2")  GOSUB 

(ATYPE.EO.  «■?")  GOSUH 

<ATYPE.EQ."4")  GOSUB 

(XTYPEcEU.  ••5")  GOSUB 

{*TYPE.HQ."6")  GOSUB 

(XTYPE.EQ. "7")  GOSUB 

{4TYPE.E0."X")  GOSUB 
rpE(  ITG)=ArYFE 
TG=MAXTG-1 
RXNSUB 

<#    PLOT   MARD   COPY 
Kit****************************** 

#PLT 
PHNT 
PRNT 


TO  PLOT  DRAWING  AS 
PLOT  DOT  SCALE  .5 


TO  PLOT  ISOMETRIC  VIEW? 
GOSUB  PLTISO 


21XJ 
"ISO" 


SdQiPRNT    PLOT   ROUTINE 
5/0!  READ    <DO   YOU    WISH 
5/1! IF    <\TYPE.EQ. "Y") 
5/2! EXECV 
5/3!  PHNT 

5 74! READ  (DO  YOU  WISH 
5/5! IF  (ATYPE.EQ."Y») 
576!HTNSUB 

5  77!  <i» 

5/dl<0    PL  i' I  SO 

5  N !  <# 

5B0!#PLnS0 

5dl!ECH0   LAYER   EXCLUDE 

5b2!UNBLANK   VIEW    NAME 

5b3!PL0T   DOT   SCALE    .5 

5u4!BLANK    VIEW    NAME    'ISO' 

5d5lECHO   LAYER    INCLUDE   200 

5cl6!HTNSUB 

5d /I  <# *********************************** 

5bd!<i»'  DETERMINE  DIAMETER  AT  GIVEN  LOCATION 

5d()!  <ir  *********************************** 

590!#GETR 

5^1! EXECV 

5Q2!PRNT 

5^3!PRNl 

5W4!PRNT 

5^5!  HEAD  (LOCATIf)N 

5'>6!  GOSUB  DRAD 


IS?   — >)  &TYPE 


—>)  4TYPE 


AT  WHICH  DIAMETER  IS  REQUIHED  — >  )  XL 
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5^/ 

5^a 

6v'X) 
001 
61)^ 
603 
604 
605 
6uo 
60/ 
00b 

60y 

610 
611 
612 
013 
614 
0J5 
616 
617 
6la 
61V 
6;>0 
621 
622 
623 
624 
625 
626 
02  7 
62d 
629 
630 
031 
632 
633 
634 
635 
630 


ENVRLOHE  DiAMbTlfH  AT  CXLJ  IS  (2*HA01  J  FEHT 


HHNT 
PrtNT 
PHNT 
HHNr 
I»l 

.■JHHtAf 
1  =  1  +  1 
UNTIL  (I.EU.6(XJ) 
HTH6W 
<#. . — — 

<#CALCULATE  !?AI)IUS 

<# . 

<»DHAD 

IF  (XL.I.E.LF)  COTf)  F^<0NT 

IF  (XL.OT. (LOA-LA))  GOTO  AFT 

IK  (XL.GT.LF,  ANn.XL.Lh".(LOA-LA)) 

HTNSIJB 

#FWONr 

XX=LF-XL 

WADI=HAD*( l-( XX/LF)**NF)**(  1/NF) 

HTN6UB 

#AFT 

XX=XL-{LOA-LA) 

HAD  I  =HAf)*  (  I  -  (  XX/LA)  **NA ) 

HTNSUB 

<^*ie  ******  ******  ********  ******** 

<»    CHHCK  FOK  EXChSSlVE  RADIUS 

<^*** ********************  ******* 

#CHEC< 

XL=h'WI)(  ITG) 

GOiiUH    DHAlJ 

IF    <.iA[)I  .GE.(PDF(  IT0)/2)) 

IF    (HAI)l.LT.  (POF(  ITC)/2)) 

XL=AFT(iTG) 

GObUH    OUAI) 

IF    (WADl .GE. (PDA(ITG)/2)) 

IF    {HAf)l.LT.(PnA(lTG)/2)) 

IF    (ERHI.EQ.O.AND.ER«2.EQ.O) 

PkNf 


HAI)l=fiAn 


t  PH I =0 
EHf<l=l 


EPrt2=0 
EPrt2=l 
rtTNbUB 


**«tHH()H***   FOrtWAHU   DlAMETEH   EXCEEDS   ENVELOPE 
***f.\hnw***   AFT   niAMETErt   EXCEEDS    ENVELOPE 


:PHNT 
637!PHNr 
63d!PHNT 

63Q!IF  (EW^<l.tQ.  1  )  PPNT 
040!IF  (E«H2.E0.1)  PRNT 
64  1  ! HTNSUB 

642!  <#*****'******'*'**********'***'***'** 
643! <»   EXIT  MIT.PHULL 

6 AA*.  <0  ****************************** 
64:>!#EN|) 
646!PrtNT 
64 7! PHNT 

64a!HtAD  (00  YOU  WISH  TO  MAKE  A  COPY  OF  THE  OHAWING? 
64^! IF  (&TYPE.EQ.-Y")  GOSUB  PLT 

651 !<#  SAVE  DATA 

653!»SAVE 
054!EXECV 
655!  k^ NT 
630! PHNT 


)  &TYPE 
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657 
65a 
65^ 
66U 
661 
66? 
663 
664 
665 
666 
66/ 
66d 
664 
6/0 
6/1 
6/2 
6/3 
6/4 
67b 
6/6 
6  77 
6/d 
6/Q 

OtiO 

6ol 
6o2 
633 
604 
6e5 
606 


pwNr 

PHNT  SAVING  FRESSUKE  MULL  DATA... 
OPENW  I ."MlT.PAbbFwn" 

J."MiT. HASSAhl" 

3,"M1T.PASSDKW[)" 

4."MIT.PASSI)AFT" 

5."Mrr.PASSV()L" 

6,"MlT.PAbSXCB" 

/."MIT.PHDATA" 

d.-mi.PAiiSTYPt" 


()Pt:<*-i 
OPENW 
()PtNii< 
OPENW 
OPtNW 
OPtNW 

1  =  1 

HhPcAr 

&TYPE=Frtf)(I  ) 
WrilTEF    I  .ATYPt 
&TYPE=AFT(I) 
WrfiTEF    2,&TYPE 
&TYPh=PnF( I) 
rtHlTHF   3,&TYPE 
&rYPE=pnA(I) 
rtrtlTEF    4.ATYPE 
&rYPE=V()L<I) 
rtHlTEF   5,iTYPE 
ATYPE=XCb(l) 
WWITEF   6,&TYPE 
ArYPE=TPE( ITG) 
rtHlTEF   b.iTYPh 
1  =  1+1 

until  (i.gt.20) 
&type=tg 
whitef  /.atype 

607!&TYPE=TV()L 
600!W^^1TEF    /.&TYPE 
60y!&TYPfc=HE5 
64»)!WwlTEF    /.ATYPE 
69I!&TYPE=PV()L 
6W2!WWITHF    V.dTYPE 
6y3!&TYP£=HV<)L 
6V4!i«kITEF    7,iTYPE 
6q5!MYPE=LCB 
6W6!WkITEF    7,&TYPE 

64  /!  <# 

640 !<#  UETEHMINE  NEXT 

644!  <# 

70()!tXECV 

/Ol iPUNT 

702! PHNT 

703! PUNT 

/04!HtAD  (DO  YOU  WISH 

7u5!IF  (&TYPE.ta. "Y") 

/06!EN0 


ACTION 


TO  ADD  APPENDAGES 
HUN  NEW  MIT.SAILI 


AT  THIS  TIME?  )  aTYPE 
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MIT.&BCD.iJAlU 
5-    /-d4     Ilt3y«b4    FUTIL   O.^il 


1  iK^tt***************************** 

2l<0   MIT.SAILI 

3!  <#«***********•***************** 

4!<# 

5!<#   GE.^tRATES  nWAWlNG  OF  bAlL 

6!<#      r^HliPAHES   l-OW    tNTWY   TO   dALANCE 

7!<# 

U  !<#***•******'*«**********'*******'* 

QIDlM   SX(2d) ,SY(2b),S2(2d) 

I C) !  n I M    AFT  ( 20  ) , FrtOC  ?0 )  ,  PIU  ( ?U ) ,  PDF  (  2vJ )  ,  LbN (  2U ) ,  VOL(  2U  ) ,  XCB  ( 2U ) 
11  !r)lM   TPt(20) 

\  21  <i'  **************■*****■********•"** 
13!<#   OBTAIN    OATA    FROM   MIT. PASSHHl 
I  4{<#*****'*'**  ******  **************** 
16!EXECV 
16IPHNT 
l/JPHNT 
IO!PHNT 

191PHNT    OBTAINING  DATA    FWOM   PASS   FILES... 
20J0HENH    1 ."MIT.PASSPHI" 
2MHEAUF    1  .ATYFE 
?2![)lAM-ATYHk: 
23!HtAUF    1  .AIYHE 
24!LOA=4TYPE 
25!HEAUF    I .ATYPE 
26!LF=&TYPE 
2/!WEAl)F    l.ATYPE 
2a!LA=\TYPE 
29!WEA1)F    l,^TYPE 
301HEAUF    1, A  TYPE 
3I1KEAUF    l.&TYPE 
32!HEAUF    U&TYPE 
33!NF=&TYPE 
34!HEADF    I ,4TYPE 
3b!NA=ATYPE 
36!KAD«nlAM/^ 

3  7 ! <# 

30! <#  LOCATE  SAIL 

3Qj<# 

4U!PHNT 

41  !PHNT 

42JPRNT 

43!HEAn    (FOHrtAHl)   EDGE   OF   SAIL    IS    LOCATED   AT-->    >    SFD 

44!G0SUIt    SAIL 

4b! GOTO   END 

46! <0 ****************************** 

47!</^  OHArt    SAIL 

4d! <ff ****************************** 

4y!#SAlL 

bO! SELECT   MOOE   MODEL 

bl IPWNT 

b2!PHNT 

531PHNT 

b4lPHNT   OBTAINING   SAIL   OFFSETS... 

5b!<'*U> 

5610PENH    l.-MIT.bAIL" 
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5  7 ! <# 

5b!  <#   HEA[)   f)H-SETS 

bW8<# • — 

60!UbADF    l.^TYPE 

61  !SLEN»8.TYPE 

62JHtADF  l.&TYPt 

63!HT=<tTYFE 

64! 1=1 

oblHEHtAT 

/SOJ       HtADH    U^rXT 

67!       SXX=ATXT 

6d!       SX(l)=SXX+SFO 

69!   rttAOF  l.&TXT 

/O!       SZn)=>iTXT 

/I!       1=1+1 

72!UNT1L    II. EQ.?.^) 

12 ! <# 

74!<#  OETEHMINH    INTEHbECTION    POINTS 

/5  J  <# . 

/6!I=I 

77!HEPEAT 

ld\       XL=SX(I) 

79!       GOSUH    OrtAD 

00!       SH'HADl 

dl!      SY( I)=bQRT(SH**2-SZ(I)**2) 

b2!       1=1+1 

b3!UNTIL    (I.EQ.29) 

b4 ! <# 

b5!<»    DHAW   CUHVE    OF    INIEHSECTION 

o6 !  <# 

d/!I=l 

db ! TTG=90 

d9 !  &TG=7rC  . 

WO!StLl"CT   LAYEH   5 

91!  INSERT   BSPLINE    I  NTH   TAG=[<iTG]i<# 

92!#iNCA    Xr.SX(I)]YfSY{I)JZISZ(I)  J,<# 

93!IaI+l 

94! IF    (i.Lt.2dJ    GOTO    INCA 

95!<CH> 

96! 1=1 

9/!TrG=92 

9b!&TG=TTG 

99! INSERT   BSFLINt    INTH   TAG=f&rG]«<# 
100!#1NCC    X[SX(I)]Y[SY(n3Z[-JZ(  I)  3,<* 
101 !I=i+l 

102! IF    (I.LE.2a)    GOTO    INCC 
>03!<CH> 

1 04 !  <# 

lUi>!<#   DRAW    UPPER    BOUNDARY 

107!I«I 

I  Ob !  rrG=9 1 

I09I&TG«TTG 

nO!YT«HAI)+HT 

III! INSERT   bSPLINE    INTR   TAG»I&TGJ»<# 

n2!#lNCB    XfSXd)  J  YIYT)ZISZ(  !)].<# 

1  13! I-l  +  l 

114! IF    ( I. LE. 2b)    GOTO    INCB 

1  l5!<Ck> 

M61I-I 
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11/ 
lltt 
I  iy 

12U 

\^\ 

\22 
123 
124 
125 
126 
12/ 
I  2d 
I2W 
I  JO 
131 
132 
133 
»34 
13b 
136 
13/ 
13d 
I3W 
140 
141 
142 
143 
i  44 
14b 
146 
14/ 
I4d 
14^ 


TTG=y3 

4TG*TTC; 

iNStHT   BSPLlNb    INTH   TAG=[4fGJi<ff 

/'I  NCI)    XISX(I)  JYCYTJZl-iJZd)  J.<# 

I  =  i  +  I 

IF    (I.LE.2a)    GOTO    INCI) 

<CH> 

<P 

<#    IN6EHT   bUHI-ACE 

<# 

/iTG=wo 

ATG 1 =4  I 

INbtWr  RSUHFACc  MEbH6X6t  TAGI& TG] .lAGl ilGl J<Crf> 

&TG=<^2 

ATGI=<J3 

iNbEHT  HSUHFACE  MEiiH6X6«  TAG[&TG  J  .TAGC  ATGI  )  <CH> 

<*U> 

HTN5UH 

Ktf  ******  ***************************** 

<fi  DETtrtMlNE    IJADlUb    AT    GIVEN    L(X:aTI()N 
<li^  **************************  ******  *** 

^nwAD 

IF    (XL.LE.LF)    GOTO  FriONT 

IF    (XL.GT.(LOA-LA))    GOTO   AFT 

IF    (XL.GT.LF.AND.XL.LE. (LOA-LAJ)    HAD! *HAD 

rtlNSUB 

^HONT 

XX-LF-XL 

HA01=(<AD*(  l-{  XX/LF)**NF)**(  1/NF) 

HTNSUb 

#AFr 

XX=XL-(LOA-LA) 

:VAO|aHAD«(  !-(XX/LA)**NA) 


!bU!HTNbUB 


<#********•********************• 

<#  HLOT   HArtI)  COPY 

<#*****************•**********•* 

#PLT 

PHNT 

PWNT 

PHNT  PLOT  KOUTINE 

RbAH  (DO  YOU  WISH  TO  PLOT  DRAWING  AS  IS?   — >)  *ANS 


151 

.152! 

1531 

154! 

155! 

156! 

15/! 

150! 

154!  IF  (&ANh.F.Q.  "Y")  PLOT  IM)T  SCALE  .5 

l60!EXtCV 

I611PHNT 

162!  HEAD  (1)0  YOU  WISH  TO  PLOT  ISOMErwlC  VIEW?   —>)  4ANS 

163! IF  (4ANS.EQ. "Y")  GOSJB  PLTISO 

164!HTNSUB 

166!<#   PLTISO 

16/1<# 

l6d!#PLTlS0 

I6<^!ECH0  LAYER   EXCLUDE   200 

I70!UNBLANK    VIEW    NAME    'ISO'' 

I  /! iPLOT  DOT  SCALE    .5 

1  /2!HTNSUB 

1/3 1 <#******************** ********** 

|74!<#   CHANGE    MESH 

I 75l<#******** ********************** 

I  /61#CLEAR 
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I  III <# ^ 

I7d!<#   HETWIEVE   PHESbUHE   HULL   DATA 
1  /gi  <# — 

IdO'PkNT 

Itil  SHHNT 

ld2!PHNr 

la3!PttNT   HETRIEVING   PRESSURE   HULL   DATA 

ld4!<*U> 

IdaJOPENH    1 ."MIT.PASSFrtD" 

Idb'OHENq   ^."MIT.PASSAFT" 

ld/!()PEl^^R    V.-MIT.PHDATA" 

Ibd! I»l 

I  by ! REPEAT 

1^0!      READF    l.iTYPE 

I<J1!      FWD(I)=&nFE 

IW2!   READr  2.&TYPE 

\^2\      AFr(n=ATYPE 

1W4!       1=1+1 

I^SiUNTIL    (i.GT.<iO) 

IV6! READF    /,&TYPE 

|y/!TGM=»&TYPE 

Wti!TG=l I 

1W9! REPEAT 

2t)0!       lTG=rU-10 

2UI!      XI=<FWI)(  ITG)>AFT(irG))/2 

^02!       Yl«3 

203!   CHANGE  SCRAPHICS  MESH1X2  «  XIX  I ] Yt Y» J<CR> 

2U4!   TG=TG+I 

205! UNTIL  (TG.GT.TGM) 

200 ! <# 

20/!  <»  SAIL  MESH 

'200 !  <# 

20Q!CHANGE  SGRAPHICS  MESH  1X2  1  XtSFn+SLEN/2 JY [RAD+Hr/2J 
2I0!CHANCE  SGRAPHICS  MESH  1X2  «  XI  SFD+SLEN/2 ] YlRADf HT/2] 
2II!<*U> 
212!RTNSUB 

2 1  3!  <»***********'**'*****'*'**'********* 
2I4!<#  EXIT  MiT.SAlLl 
2 lb!  <#**************************'**** 
2l6!ll>END 
2I7!EXECV 
2ld!PRNT 
2iy!PRNr 

?20!REA1)  (IK)  YOU  WISH  TO  MAXE  A  COPY  OF  THE  DRAWING?   )  AANS 
221!  IF  (XANS.EQ.-'Y")  GOSUH  PLT 
2P2!EXECV 
223!PHNr 
<?24!PHNT 
225!PRNT 

226! READ  (DO  YOU  WISH  TO  CONTINUE  TO  BALANCE?   )  &ANS 
22/1  IF  (&ANS.EO."Y")  GCJSUB  CLEAR 
22d!lF  (AANS.EQ."Y")  RUN  NEW  MIT. BALANCE 
?2Q!END 
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APPENDIX  III 
PROGRAM  FLOWCHARTS 
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MIT.FORMC 


Used  to  set  up 
drawing  format 


Activate  part  MIT. SUB. FORMAT 
Activate  drawing  FORMC 


Set  up  data  displays 


Pressure  Hul 1  Desi  gn  Summary 
Detailed  Segment  Information 
Principal  Characteristics 


Create  Form  Part  and  -file 
as  MIT. SUB. FORMAT  DRAW  FORMC 
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MIT.ENV 

Generates  views  and  graphic 
display  o-f  outer  envelope 


Obtain  o-f-fsets  -from 
data  file   MIT. POINTS 


Obtain  principal  characteristics 
from  data  -file  MIT.PASSPHl 


Select  scale  -factor 
based  on  LOA 


Activate  part  MIT.SUBDRA 

Activate  drawing   FORMAT 

De-fine  views 


Draw  horizontal  and 
vertical  scales 


Construct  envelope  pro-file 


Rotate  pro-file  to  obtain 
sur-face  o-f  revolution 


Display  principal  characteristics 


Execute  MIT.PHULL 
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MIT.PHULL 


Create  3D  representation  o-f  pressure  hull, 
calculate  and  display  various  parameters 


Obtain  the  ^^ol  lowing  from  MIT.PASSPHl 

Diameter 

Length  overal 1 

Forebody  length 

A-fterbody  length 

Forebody  -Fullness  coe-fficient 
A-fterbody  -ful  Iness  coe-fficient 


Obtain  the  -following  from  MIT.PASSPH2: 
A  weight  


Determine  amount  of  A  weight 
to  be  reserved 


Display  initial  values 
in  Design  Summary  area 


Select  option  from  main  menu 
1-Cylinder 
2— Conical  segment 
3-Flat  plate  closure 
4— Spherical  closure 
5-Elliptical  closure 
6-Son ar  and  access  trunk 
7-Diameter  at  any  location 
E-Edit  pressure  hull 
X-Leave  MIT.PHULL 


SO 


Cylindrical  Segment 

V 

Obtain  the  -Following  data: 

Forward  most  point  o-f  segment 
Aft  most  point  o-f  segment 
Diameter  o-f  cylinder 

'  1 

Draw  cylinder 

Calculate  volume  and 
center  o-f  buoyancy 

r 

Update  data  displays 

Return    to   main    menu 
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Conical  Segment 

" 

Obtain  the  -following  data: 

Forward  most  point  o-f  segment 
A-Ft  most  point  o-f  segment 
Diameter  at  -forward  most  point 
Diameter  at  a-ft  most  point 

t 

Draw  conical  segment 

'  1 

Calculate  volume  and 
center  o-f  buoyancy 

' 

Update  data  displays 

■ 

Return  to  main  menu 
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Flat  plate  closure 

Obtain  location  and  diameter 
o-f  -flat  plate  closure 

' 

Draw  -flat  plate  closure 

Update  data  displays 


Return  to  main  menu 
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Spherical  end  closure 


Determine  method  o-f  data  input: 
1-Explicit  input  o-f  endpoints 
2-Calculate  inputs  -from  volume 


Explicit  input 


Obtain  the  -following; 
Forward  most  point 
A-ft  most  point 
Forward  diameter 
A-ft  diameter 


i 


Calculate  endpoints 
-from  volume      


Obtain  the  following: 

Required  volume 

Location  o-f  base 

Diameter  o-f  base 


Calculate  segment  length 
and  determine  points  to 
plot  geometry 


Draw  spherical  end  closure 


Calculate  volume  and 
center  o-f  buoyancy 


Update  data  disp 1  ays 
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Elliptical  end  closure  I 


Obtain  the  -following  data: 

Forward  most  point  of  segment 
A-ft  most  point  o-f  segment 
Diameter  at  -forward  most  point 
Diameter  at  a-ft  most  point 


Draw  elliptical  end  closure 


Calculate  volume  and 
center  o-f  buoyancy 


Update  data  display 


Return  to  main  menu 
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Sonar  and  access  trunk 


Obtain  the  following  data: 
Diameter  o-f  sonar  sphere 
Diameter  o-f  access  trunk 
Center  o-f  sonar  sphere 


Draw  sonar  sphere 


Calculate  sonar  volume  and 
center  of  buoyancy 


Update  data  display 


Display  location  of  aft most  point 
of  sonar  sphere  and  obtain  the 
aftmost  location  of  access  trunk 


Draw  cylindrical  access  trunk] 


Calculate  volume  and 
center  of  buoyancy 


Update  data  display 
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Edit  pressure  hull 

1' 

Determine  segment  to  be  deleted 

'  1 

Delete  graphic  di 

splay  o-f  segment 

Make  corrections  to  remaining  volume 
and  pressure  hul  1  center  o-f  buoyancy 


Delete  data  pertaining  to  deleted 
segment  and  update  data  display 


Select  new  segment  -form 


Go  to  appropriate  subroutine 
for  new  segment 


Return  to  main  menu 
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Exit  MIT.PHULL 


Provide  opportunity  to  plot  drawing 


Save  data  in  the  following  data  -Files: 
MIT.PASSFWD:  -forward  most  points  o-f  segment! 
MIT.PASSAFT:  a-ftmost  points  o-f  segments 
MIT.PASSDFWD:  -forward  diameters 
MIT.PASSDAFT:  a-ft  diameters 
MIT.PASSVOL:  segment  volumes 
MIT.PASSXCB:  centers  o-f  buoyancy 
MIT.PHDATA:  totals  -for  pressure  hull 


Execute  MIT.SAILl 
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MIT.SAILl 


1 


Obtain  the  -following  data 
from  MIT.PASSPHl: 
Di  ameter 
Length  overall 
Forebody  length 
A-fterbody  length 
Forebody  -fullness  coe-f-f icient 
A-fterbody  -fullness  coe-f -f icient 


Obtain  location  of  -forward 
edge  o-f  sai  1 


Obtain  sail  o-f -f sets 
-from  MIT.  SAIL 


Determine  points  o-f  intersection 
between  sail  and   outer  envelope 


Draw  curve  o-f  intersection 


Draw  sai 1  upper  boundary 


Draw  connecting  sur-face 


Provide  opportunity  to  plot  drawing 


Prepare  to  execute  balance  module 


89 


APPENDIX  IV 
PROGRAM  DATA  FILES 
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DATA  FILES  USED  BY  GRAPHICS  MODULES 


1.  Files  created  by  earlier  modules. 


MIT. POINTS; 


This  data  file  is  used  in  MIT-ENV  to  obtain 
the  132  offsets  generated  in  the  geometry 
module. 


\ 


MIT.PASSHl:  Used  by  MIT.ENV,  MIT.PHULL,  and  MIT.SAILl. 
This  data  file  contains  the  following  data 
concerning  the  envelope  geometry: 

Di  ameter 
Length  overal 1 
Length  of  forebody 
Length  of  afterbody 
Submerged  center  of  buoyancy 
Submerged  displacement 
Envelope  displacement 
Forebody  fullness  coefficient 
Afterbody  coefficient 

MIT.PASSPH2:  This  data  file  is  used  by  MIT.PHULL  to  ob- 
tain the  A  weight  and  design  name. 


2.  Files  created  by  graphics  modules. 

a.  Data  files  are  created  in  MIT.PHULL  to  save  data 
describing  the  individual  segments  of  the  pressure 
hull  as  well  as  the  total  volume  and  center  of 
buoyancy  of  the  pressure  hull.  Within  this  module, 
all  data  concerning  each  segment  is  maintained  in  a 
series  of  one  dimensional  arrays-  Prior  to  leaving 
the  module  this  data  is  saved  in  a  series  of  data 
files. 

MIT.PASSFWD:  Contains  locations  of  the  forward  most 
point  of  each  segment. 


MIT.PASSAFT:  Contains    locations   of 
point  of  each  segment. 


the   aftmost 


MIT.PASSDFWD;  Contains  diameter  at  the  forward  most 
point  of  each  segment. 
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MIT.PASSDAFT:  Contains  the  diameter  at  the   a-ftmost 
point  o-f  each  segment. 

MIT.PASSVOL:  Volume  o-f  each  pressure  hull  segment. 

MIT.PASSLCB:  Location  o-F  center  o-f  buoyancy  o-f  each 
segment . 

MIT.PASSTYPE:  Contains   the   type  o-f   each   segment 
(cone,   cylinder,  etc.) 

MIT.PHDATA:  Contains   total   volume  and   center   o-f 
buoyancy  o-f  the  pressure  hul  1 . 

b.  Parts  and  drawings  generated  by  graphics  modules. 

MIT. SUB. FORMAT:  This  is  the  part  used  by   MIT.FORMC 

to  generate  the  Form  Part  drawing. 
MIT.  SUB.  FORMAT. FORMC  is  the  name  o-f 
the  drawing. 

MIT.SUBDRA:  This   part  is  activated  in  MIT.ENV.   It 
is  used  in  all  graphics  modules. 

MIT.HULLOUT:  Upon   completion  o-f  CADSUB,   the   part 
MIT.SUBDRA  is  -filed  under  this  name. 
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LAYER  ASSIGNMENTS 
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LAYER  ASSIGNMENTS 

Through  the  use  of  layers  one  may  remove  -from  view 
parts  o-f  a  design  without  totally  eliminating  them.  This 
makes  it  possible  to  improve  the  clarity  o-f  the  drawing 
and  view  only  those  elements  of  the  design  that  are 
required  at  any  time  in  the  design  process. 

The  following  layer  assignments  are  used  in  CADSUB 
graphics  modules. 

Layer    0:  Border  of  drawing,   horizontal  and  verti- 
cal scales. 

Layer  1:  Outer  envelope. 

Layer  2:  Pressure  hull. 

Layer  5:  Sail. 

Layer  199:  Principal  characteristics  data  display. 

Layer  200:  Data  display  areas  for  detailed  segment 
information  and  pressure  hull  design 
summary. 

Layer  205:  Negative  sign.  This  is  included  because 
of  the  undesirable  effects  observed  in 
MIT.PHULL  when  attempting  to  convert  a 
negative  remaining  volume  to  a  text 
entity  and  including  it  in  the  data 
display.  If  this  value  is  negative,  a 
flag  is  set  and  the  value  is  converted 
to  a  positive  value.  If,  when  written  on 
the  screen,  the  flag  is  set  Layer  205  is 
included  in  the  drawing.  If  the  flag  is 
not  set  Layer  205  is  excluded  from  view. 
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